code_for_textarea

one of the documented procedures in this installation of the ACS
Usage:
code_for_textarea   column   size   rows   cols
What it does:
Helper proc to make-form that makes a textarea for edit page code
Defined in: /web/philip/tcl/prototype-defs.tcl

Source code:


    set form_html ""
    switch $size {
    small {
        append form_html "<td><textarea name=$column cols=40 rows=3 wrap=soft>\[ns_quotehtml \$$column\]</textarea></td></tr>\n\n"}
    medium {
        append form_html "<td><textarea name=$column cols=40 rows=8 wrap=soft>\[ns_quotehtml \$$column\]</textarea></td></tr>\n\n"}
    large {
        append form_html "<td><textarea name=$column cols=40 rows=15 wrap=soft>\[ns_quotehtml \$$column\]</textarea></td></tr>\n\n"}
    spec {
        append form_html "<td><textarea name=$column cols=$cols rows=$rows wrap=soft>\[ns_quotehtml \$$column\]</textarea></td></tr>\n\n"}
    default {
        append form_html "<td><textarea name=$column cols=40 rows=8 wrap=soft>\[ns_quotehtml \$$column\]</textarea></td></tr>\n\n"}
    }
    return $form_html


philg@mit.edu