handle_edit_textarea

one of the documented procedures in this installation of the ACS
Usage:
handle_edit_textarea   column   size   rows   cols   value
What it does:
Helper proc to make_edit_form that makes a textarea for an edit 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