Index: openacs-4/packages/acs-admin/www/apm/parameter-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/parameter-edit.tcl,v
diff -u -r1.6.10.4 -r1.6.10.5
--- openacs-4/packages/acs-admin/www/apm/parameter-edit.tcl	9 Sep 2013 16:44:17 -0000	1.6.10.4
+++ openacs-4/packages/acs-admin/www/apm/parameter-edit.tcl	24 Sep 2013 11:00:53 -0000	1.6.10.5
@@ -27,10 +27,14 @@
 db_release_unused_handles
 
 set page_title "Edit Parameter"
-set context [list [list "." "Package Manager"] [list [export_vars -base version-view { version_id }] "$pretty_name $version_name"] [list [export_vars -base version-parameters { version_id }] "Parameters"] $page_title]
+set context [list \
+		 [list "." "Package Manager"] \
+		 [list [export_vars -base version-view { version_id }] "$pretty_name $version_name"] \
+		 [list [export_vars -base version-parameters { version_id }] "Parameters"] \
+		 $page_title]
 
-append body "
-<form action=\"parameter-edit-2\" method=\"post\">
+append body [subst {
+<form action="parameter-edit-2" method="post">
 <blockquote>
 <table>
 [export_vars -form {package_key parameter_id version_id}]
@@ -44,8 +48,8 @@
 </tr>
 
 <tr>
-  <th align=right nowrap>Parameter Name:</th>
-  <td><input name=parameter_name size=50 value=\"[ad_quotehtml $parameter_name]\"></td>
+  <th aligh="right" nowrap>Parameter Name:</th>
+  <td><input name="parameter_name" size="50" value="[ad_quotehtml $parameter_name]"></td>
 </tr>
 
 <tr>
@@ -54,20 +58,20 @@
 </tr>
 
 <tr valign=top>
-  <th align=right><br>Description:</th>
-  <td><textarea name=description cols=60 rows=8>[ad_quotehtml $description]</textarea>
+  <th aligh="right"><br>Description:</th>
+  <td><textarea name="description" cols="60" rows="8">[ad_quotehtml $description]</textarea>
 </td>
 </tr>
 
 <tr>
   <td></td>
-  <td>You may enter a section name to identify the parameter.  For example, the ACS Kernel has a \"security\" section
+  <td>You may enter a section name to identify the parameter.  For example, the ACS Kernel has a "security" section
 to indicate which parameters pertain to security.
 </tr>
 
 <tr valign=top>
-  <th align=right><br>Section Name:</th>
-  <td><input name=section_name value=\"[ad_quotehtml $section_name]\" size=50><br>
+  <th aligh="right"><br>Section Name:</th>
+  <td><input name="section_name" value="[ad_quotehtml $section_name]" size=50><br>
 </td>
 </tr>
 
@@ -78,8 +82,8 @@
 </tr>
 
 <tr>
-  <th align=right nowrap>Type:</th>
-  <td><select name=datatype>
+  <th aligh="right" nowrap>Type:</th>
+  <td><select name="datatype">
       [ad_generic_optionlist {number string "textarea"} {number string text} $datatype]
       </select>
   </td>
@@ -93,17 +97,16 @@
 </tr>
 
 <tr>
-  <th align=right nowrap>Default:</th>
-  <td><input name=default_value size=50 value=\"[ad_quotehtml $default_value]\"></td>
+  <th aligh="right" nowrap>Default:</th>
+<td><textarea name="default_value" cols="60" rows="[expr {$datatype eq "text" ? 8 : 1}]">[ad_quotehtml $default_value]</textarea>
 </tr>
 
-<tr><th colspan=2><input type=submit value=\"Edit Parameter\"></th>
+<tr><th colspan=2><input type="submit" value="Edit Parameter"></th>
 </tr>
 </table>
 </blockquote>
 </form>
-[ad_footer]
-"
+}]