solicit_error_info column error_type form_typeWhat it does:
A procedure to find out what kind of error action a user desires for a given columnDefined in: /web/philip/tcl/prototype-defs.tcl
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