solicit_info column form_typeWhat it does:
A procedure to get more info about a given form given a column and form-type. Most of the trouble is just going through all the forms types.Defined in: /web/philip/tcl/prototype-defs.tcl
Source code:
set form_html "<h4>For $column:</h4>\n"
append form_html "Please enter the prompt text for entry into your $form_type:<br>\n"
set prompt_var $column
append prompt_var "_prompt_text"
append form_html "<input type=text size=55 name=$prompt_var><br>\n"
set ei_var $column
append ei_var "_extra_info"
set eitwo_var $column
append eitwo_var "_ei_two"
set eithree_var $column
append eithree_var "_ei_three"
switch $form_type {
textbox {
append form_html "How big a textbox do you want?<br> <input name=$ei_var value=small type=radio> Small \n"
append form_html "<input name=$ei_var value=medium type=radio> Medium \n"
append form_html "<input name=$ei_var value=large type=radio> Large \n"
append form_html "<input name=$ei_var value=spec type=radio> Specify size: \n"
append form_html "<input type=text size=3 name=$eitwo_var>\n<br>"}
textarea {
append form_html "How big a textarea do you want?<br> <input name=$ei_var value=small type=radio> Small \n"
append form_html "<input name=$ei_var value=medium type=radio> Medium \n"
append form_html "<input name=$ei_var value=large type=radio> Large \n<br>"
append form_html "<input name=$ei_var value=spec type=radio> Specify \n"
append form_html "Rows: <input type=text size=3 name=$eitwo_var>\n"
append form_html "Columns: <input type=text size=3 name=$eithree_var>\n<br>"}
radiobutton -
checkbox -
select {
append form_html "Please input a tcl list of values to fill in your ${form_type}s:<br>"
append form_html "<input type=text size=55 name=$ei_var><br>\n"}
boolean {
append form_html "What kind of boolean do you want?\n<input name=$ei_var value=yn type=radio> Yes/No \n"
append form_html "<input name=$ei_var value=tf type=radio> True/False<br>\n"}
date {}
default {}
}
return $form_html