ad_custom_form (public, deprecated)

 ad_custom_form return_url item_group item

Defined in packages/acs-tcl/tcl/deprecated-procs.tcl

Deprecated. Invoking this procedure generates a warning.

sets up the head of a form to feed to /tools/form-custom.tcl Deprecated: there are many better ways now to create forms in OpenACS

Parameters:

return_url (required)

item_group (required)

item (required)

See Also:

• ad_form
• template::form
• Generic::Form
• xowiki::Form
• xowiki::FormPage

Testcases:

No testcase defined.

Source code:

ad_log_deprecated proc ad_custom_form
    append html "<form method=\"get\" action=\"/tools/form-custom\">\n"
    if {$return_url ne ""} {
        append html "[export_vars -form {return_url}]\n"
    }
    if {$item_group eq ""} {
        set item_group [ad_conn url]
    }
    set item_original $item
    append html "[export_vars -form {item_group item item_original}]\n"
    append html "<input type=\"submit\" value=\"Save settings\">"

XQL Not present:

PostgreSQL, Oracle

Generic XQL file:

packages/acs-tcl/tcl/deprecated-procs.xql