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