handle_edit_textbox

one of the documented procedures in this installation of the ACS
Usage:
handle_edit_textbox   column   size   customsize   value
What it does:
Helper proc to make_edit_form that makes a textbox for an edit page
Defined in: /web/philip/tcl/prototype-defs.tcl

Source code:


    set form_html ""
    switch $size {
        small {
            append form_html "<td><input type=text size=10 name=$column [export_form_value value]></td>"}
        medium {
            append form_html "<td><input type=text size=40 name=$column [export_form_value value]></td>"}
        large {
            append form_html "<td><input type=text size=70 name=$column [export_form_value value]></td>"}
        spec {
            append form_html "<td><input type=text size=$customsize name=$column [export_form_value value]></td>"}
        default {
            append form_html "<td><input type=text size=40 name=$column [export_form_value value]></td>"}
    }
    return $form_html


philg@mit.edu