handle_edit_checkbox

one of the documented procedures in this installation of the ACS
Usage:
handle_edit_checkbox   column   list_of_vals   items   defaults   select
What it does:
Helper proc to make_edit_form that makes a checkbox for an edit page
Defined 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


philg@mit.edu