set_the_usual_form_variables

set_the_usual_form_variables   { error_if_not_found_p "1" }

    if { [ns_getform] == "" } {
        if $error_if_not_found_p {
            uplevel {
                ns_returnerror 500 "Missing form data"
                return
            }
        } else {
            return
        }
    }
     # The variable names are prefixed with a V to avoid confusion
     # with the form variables while checking for naughtiness.
    uplevel {
        set Vform [ns_getform]
        set Vform_size [ns_set size $Vform]
        set Vform_counter_i 0
        while {$Vform_counter_i<$Vform_size} {
            set Vname [ns_set key $Vform $Vform_counter_i]
            set Vvalue [ns_set value $Vform $Vform_counter_i]
            check_for_form_variable_naughtiness $Vname $Vvalue
            set QQ$Vname [DoubleApos [string trim $Vvalue]]
            set $Vname $Vvalue
            incr Vform_counter_i
        }
    }