code_for_textbox

one of the documented procedures in this installation of the ACS

Usage:

code_for_textbox column size customsize

What it does:

Helper proc to make-form that makes a textbox for edit page code

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 MAXLENGTH=$maxlength name=$column \[export_form_value $column\]></TD></TR>\n\n"}
        medium {
            append form_html "<td><input type=text size=40 MAXLENGTH=$maxlength name=$column \[export_form_value $column\]></td></tr>\n\n"}
        large {
            append form_html "<td><input type=text size=70 MAXLENGTH=$maxlength name=$column \[export_form_value $column\]></td></tr>\n\n"}
        spec {
            append form_html "<td><input type=text size=$customsize  MAXLENGTH=$maxlength name=$column \[export_form_value $column\]></td></tr>\n\n"}
        default {
            append form_html "<td><input type=text size=40 name=$column MAXLENGTH=$maxlength \[export_form_value $column\]></td></tr>\n\n"}
    }
    return $form_html

philg@mit.edu