handle_edit_textarea column size rows cols valueWhat it does:
Helper proc to make_edit_form that makes a textarea for an edit pageDefined 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