handle_radio

handle_radio   column   list_of_vals   items   defaults

Helper proc to make-form that makes a radiobutton for an add page

Source code:

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