dp_read_checkboxes { hidden_field_name "_cv" } { off_value "N" }What it does:
Reads all checkboxes in the form and sets their value to either Y or N. Note that this function looks for a hidden field named hidden_field_name to get a list of all marked and unmarked checkboxes. This should be used in conjunction with dp_insert_checkbox that sets up the hidden fields automatically.Defined in: /web/philip/tcl/data-pipeline-defs.tcl
Source code:
upvar dp_form dp_form set size [ns_set size $dp_form] set i 0 while {$i<$size} { if { [ns_set key $dp_form $i] == $hidden_field_name} { # list_of_vars will be created if it doesn't exist lappend list_of_vars [ns_set value $dp_form $i] } incr i } if { ![info exists list_of_vars] || [empty_string_p $list_of_vars] } { return } foreach cb_var $list_of_vars { set val [ns_set get $dp_form $cb_var] if {[empty_string_p $val]} { ns_set put $dp_form $cb_var $off_value } } return