handle_edit_checkbox column list_of_vals items defaults selectWhat it does:
Helper proc to make_edit_form that makes a checkbox for an edit pageDefined in: /web/philip/tcl/prototype-defs.tcl
Source code:
set form_html "<td>" set count 0 foreach val $list_of_vals { if {[lsearch -exact $defaults $val] != -1} { append form_html "<td><input name=$column checked value=\\\"$val\\\" type=checkbox>[lindex $items $count]</td> \n" } else { append form_html "<td><input name=$column value=\\\"$val\\\" type=checkbox>[lindex $items $count]</td> \n" } incr count } #append form_html "</td>\n" set merged_html "[bt_mergepiece $form_html $select]" return $merged_html