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
	}
    }
    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
	}
    }