code_for_radio column list_of_vals itemsWhat it does:
Helper proc to make-form that makes a radiobutton for edit page codeDefined in: /web/philip/tcl/prototype-defs.tcl
Source code:
set form_html "<td>" set count 0 foreach val $list_of_vals { append form_html "\n<input name=$column value=\\\"$val\\\" type=radio> [lindex $items $count] " incr count } append form_html "</td>\n" set merged_html "\[bt_mergepiece \"$form_html\" \$selection\]\n" return $merged_html