handle_select column list_of_vals items defaultsWhat it does:
Helper proc to make-form that makes a select for an add pageDefined 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