make_report column form_type prompt eione eitwo eithreeWhat it does:
Make entries for the report page.Defined in: /web/philip/tcl/prototype-defs.tcl
Source code:
set form_html "<tr><th valign=top align=right>$prompt</th>\n" switch $form_type { textbox {append form_html "<td> \$$column </td></tr>\n\n"} textarea {append form_html "<td> \$$column </td></tr>\n\n"} radiobutton {append form_html "<td> \$$column </td></tr>\n\n"} checkbox {append form_html "<td> \$$column </td></tr>\n\n"} select {append form_html "<td> \$$column </td></tr>\n\n"} boolean { if [string compare $eione "tf"] { append form_html "<td>" switch \$$column { t {ns_write \" Yes \"} f {ns_write \" No \"} } ns_write "</td></tr>\n\n" } else { append form_html "<td>" switch \$$column { t {ns_write \"True \"} f {ns_write \" False \"} } ns_write "</td></tr>\n\n" } } date { append form_html "\"\n" append form_html "if \[empty_string_p \$$column\] \{" append form_html "\n ns_write \"<td> No date has been entered. </td></tr>\"" append form_html "\n\} else \{\n ns_write \"" append form_html "<td>\[util_AnsiDatetoPrettyDate \$$column\]</td></tr>\"" append form_html "\n\}\n\nns_write \"" } default {append form_html "<td> \$$column </td></tr>\n\n"} } return $form_html