handle_select

one of the documented procedures in this installation of the ACS
Usage:
handle_select   column   list_of_vals   items   defaults
What it does:
Helper proc to make-form that makes a select for an add page
Defined in: /web/philip/tcl/prototype-defs.tcl

Source code:


    set form_html "<td><select name=$column>\n"
    set count 0
    foreach val $list_of_vals {
        if {[lsearch -exact $defaults $val] != -1} {
            append form_html "<option selected value=\\\"$val\\\"> [lindex $items $count]  \n"
        } else {
            append form_html "<option value=\\\"$val\\\"> [lindex $items $count]  \n"
        }
        incr count 
    } 
    append form_html "</select></td></tr>\n\n"
    return $form_html


philg@mit.edu