make_report

one of the documented procedures in this installation of the ACS
Usage:
make_report   column   form_type   prompt   eione   eitwo   eithree
What 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


philg@mit.edu