make_form column form_type prompt eione eitwo eithree valueWhat it does:
The top-level procedure to make a form for the add page. Goes through the form types and calls helper proc handle-{form-types} for each form_typeDefined in: /web/philip/tcl/prototype-defs.tcl
Source code:
set form_html "<tr><th valign=top align=right>$prompt</th>\n" upvar table_name table_name switch $form_type { textbox {append form_html [handle_textbox $column $eione $eitwo $value] "</tr>\n\n"} textarea {append form_html [handle_textarea $column $eione $eitwo $eithree $value] "</tr>\n\n"} radiobutton {append form_html [handle_radio $column $eione $eione $value] "</tr>\n\n"} checkbox {append form_html [handle_checkbox $column $eione $eione $value] "</tr>\n\n"} select {append form_html [handle_select $column $eione $eione $value] "</tr>\n\n"} boolean { if [string compare $eione "tf"] { append form_html [handle_radio $column {t f} {Yes No} $value] "</tr>\n\n" } else { append form_html [handle_radio $column {t f} {True False} $value] "</tr>\n\n" } } date {append form_html [handle_date $column $eione $eione $value] "</tr>\n\n"} default { append form_html "<input type=text size=50 name=$column><p>\n"} } return $form_html