rp_getform (public)

 rp_getform

Defined in packages/acs-tcl/tcl/request-processor-procs.tcl

This proc is a simple wrapper around AOLserver's standard ns_getform proc, that will create the form if it doesn't exist, so that you can then add values to that form. This is useful in conjunction with rp_internal_redirect to redirect to a different page with certain query variables set.

Returns:
the form ns_set, just like ns_getform, except it will always be nonempty.
Author:
Lars Pind <lars@pinds.com>
Created:
August 20, 2002

Partial Call Graph (max 5 caller/called nodes):
%3 packages/acs-admin/www/apm/index.tcl packages/acs-admin/ www/apm/index.tcl rp_getform rp_getform packages/acs-admin/www/apm/index.tcl->rp_getform packages/acs-admin/www/apm/version-edit-2.tcl packages/acs-admin/ www/apm/version-edit-2.tcl packages/acs-admin/www/apm/version-edit-2.tcl->rp_getform rp_form_put rp_form_put (public) rp_form_put->rp_getform rp_form_update rp_form_update (public) rp_form_update->rp_getform

Testcases:
No testcase defined.
Source code:
    # The form may not exist, if there's nothing in it
    if { [ns_getform] ne "" } {
        # It's there
        return [ns_getform]
    } {
        # It doesn't exist, create a new one

        # This is the magic global Tcl variable that AOLserver uses
        # to store the ns_set that contains the query args or form.
        global _ns_form

        # Simply create a new ns_set and store it in the global _ns_set variable
        set _ns_form [ns_set create]
        return $_ns_form
    }
XQL Not present:
Generic, PostgreSQL, Oracle
[ hide source ] | [ make this the default ]
Show another procedure: