handle_textbox

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

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


philg@mit.edu