handle_textbox

handle_textbox   column   size   customsize   value

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

Source code:

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