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