handle_textarea

one of the documented procedures in this installation of the ACS

Usage:

handle_textarea column size rows cols value

What it does:

Helper proc to make-form that makes a textarea for an add page

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 $value]</textarea></td>"}
        medium {
            append form_html "<td><textarea name=$column cols=40 rows=8 wrap=soft>[ns_quotehtml $value]</textarea></td>"}
        large {
            append form_html "<td><textarea name=$column cols=40 rows=15 wrap=soft>[ns_quotehtml $value]</textarea></td>"}
        spec {
            append form_html "<td><textarea name=$column cols=$cols rows=$rows wrap=soft>[ns_quotehtml $value]</textarea></td>"}
        default {
            append form_html "<td><textarea name=$column cols=40 rows=8 wrap=soft>[ns_quotehtml $value]</textarea></td>"}
    }
    return $form_html

philg@mit.edu