set_the_usual_form_variables
one of the defined (but not documented) Tcl procedures in this
installation of the ACS
Usage:
set_the_usual_form_variables { error_if_not_found_p "1" }
Source code:
if { [ns_getform] == "" } {
if $error_if_not_found_p {
uplevel {
ns_returnerror 500 "Missing form data"
return
}
} else {
return
}
}
uplevel {
set form [ns_getform]
set form_size [ns_set size $form]
set form_counter_i 0
while {$form_counter_i<$form_size} {
set name [ns_set key $form $form_counter_i]
set value [ns_set value $form $form_counter_i]
check_for_form_variable_naughtiness $name $value
set $name $value
set QQ[ns_set key $form $form_counter_i] [DoubleApos [string trim [ns_set value $form $form_counter_i]]]
incr form_counter_i
}
}
philg@mit.edu