code_for_textarea column size rows colsWhat it does:
Helper proc to make-form that makes a textarea for edit page codeDefined 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