solicit_error_info

solicit_error_info   column   error_type   form_type

A procedure to find out what kind of error action a user desires for a given column

Source code:

    set form_html ""
    switch $error_type {
        nothing {}
        complain {
            append form_html "If the user fails to enter input, what error message do you desire?<br>\n"
            set error_var $column
            append error_var "_error_message"
            append form_html "<input type=text size=55 name=$error_var><br>\n"}
        fixit {
            append form_html "What value do you wish to set as the default?<br>\n"
            set error_var $column
            append error_var "_default"
            if [string compare $form_type "date"] {
                append form_html "<input type=text size=55 name=$error_var><br>\n"
            } else {
                append form_html  "<input name=$error_var checked value=now type=radio> Now \n"  
                append form_html  "<input name=$error_var value=spec type=radio> Specify: \n"
                append form_html  "[philg_dateentrywidget_default_to_today $error_var]"
            }
        }
        default {}
    }
    append form_html "<p>"
    return $form_html