make_form

make_form   column   form_type   prompt   eione   eitwo   eithree   value

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_type

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