Index: openacs-4/packages/acs-subsite/www/shared/parameters.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/parameters.tcl,v diff -u -N -r1.14 -r1.15 --- openacs-4/packages/acs-subsite/www/shared/parameters.tcl 14 May 2007 20:30:25 -0000 1.14 +++ openacs-4/packages/acs-subsite/www/shared/parameters.tcl 25 Sep 2007 15:22:38 -0000 1.15 @@ -70,10 +70,20 @@ set focus_elm $parameter_name } - set elm [list ${parameter_name}:text,optional,nospell \ + switch $datatype { + text { + set widget textarea + set html [list cols 100 rows 15] + } + default { + set widget text + set html [list size 50] + } + } + set elm [list ${parameter_name}:text($widget),optional,nospell \ {label {$parameter_name}} \ {help_text {$description}} \ - {html {size 50}}] + [list html $html]] set file_val [ad_parameter_from_file $parameter_name $package_key] if { $file_val ne "" } {