general_comments::create_link (public, deprecated)

 general_comments::create_link object_id object_name return_url \
    link_text [ context_id ] [ category ]

Defined in packages/general-comments/tcl/general-comments-procs.tcl

Deprecated. Invoking this procedure generates a warning.

Generates an html link to add a comment to an object.

Parameters:

object_id (required)

The object to comment on.

object_name (required)

The name of the object.

return_url (required)

A url for the user to return to after viewing a comment.

link_text (required)

The text to display for the link.

context_id (optional)

category (optional)

A category to associate comment to.

See Also:

• general_comments_create_link

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc general_comments::create_link
        # get the package url
        set package_url [general_comments_package_url]

        set html [subst {<a href="[ns_quotehtml [export_vars -base ${package_url}comment-add {object_id
             object_name return_url context_id category}]]">$link_text</a>
        }]
        return $html

Generic XQL file:

packages/general-comments/tcl/general-comments-procs.xql

PostgreSQL XQL file:

packages/general-comments/tcl/general-comments-procs-postgresql.xql

Oracle XQL file:

packages/general-comments/tcl/general-comments-procs-oracle.xql