column_form columnWhat it does:
Makes the forms to ask which form-type the user desiresDefined in: /web/philip/tcl/prototype-defs.tcl
Source code:
set select_html "<tr align=right><th>$column:</th>\n" set form_var $column append form_var "_form_type" append select_html "<td><input name=$form_var value=none checked type=radio>None</td>\n" append select_html "<td><input name=$form_var value=textbox type=radio>Textbox</td>\n" append select_html "<td><input name=$form_var value=textarea type=radio>Textarea</td>\n" append select_html "<td><input name=$form_var value=checkbox type=radio>Checkbox</td>\n" append select_html "<td><input name=$form_var value=radiobutton type=radio>Radio</td>\n" append select_html "<td><input name=$form_var value=select type=radio>Select</td>\n" append select_html "<td><input name=$form_var value=boolean type=radio>Boolean</td>\n" append select_html "<td><input name=$form_var value=date type=radio>Date\n <p></td>" append select_html "</tr> " return $select_html