column_form

one of the documented procedures in this installation of the ACS
Usage:
column_form   column
What it does:
Makes the forms to ask which form-type the user desires
Defined in: /web/philip/tcl/prototype-defs.tcl

Source code:


    set select_html "<tr align=right><th>$column:</th>\n"

    set form_var $column
    append form_var "_form_type"
    append select_html  "<td><input name=$form_var value=none checked type=radio>None</td>\n"  
    append select_html  "<td><input name=$form_var value=textbox type=radio>Textbox</td>\n"  
    append select_html  "<td><input name=$form_var value=textarea type=radio>Textarea</td>\n"  
    append select_html  "<td><input name=$form_var value=checkbox type=radio>Checkbox</td>\n"  
    append select_html  "<td><input name=$form_var value=radiobutton type=radio>Radio</td>\n"  
    append select_html  "<td><input name=$form_var value=select type=radio>Select</td>\n"  
    append select_html  "<td><input name=$form_var value=boolean type=radio>Boolean</td>\n"   
    append select_html  "<td><input name=$form_var value=date type=radio>Date\n <p></td>"  
    append select_html "</tr> " 
    return $select_html     


philg@mit.edu