Index: openacs-4/packages/acs-admin/www/apm/parameter-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/parameter-add.tcl,v
diff -u -r1.12.2.1 -r1.12.2.2
--- openacs-4/packages/acs-admin/www/apm/parameter-add.tcl	1 Sep 2020 17:21:39 -0000	1.12.2.1
+++ openacs-4/packages/acs-admin/www/apm/parameter-add.tcl	30 Jul 2024 17:39:48 -0000	1.12.2.2
@@ -6,6 +6,11 @@
 } {
     version_id:naturalnum,notnull
     {section_name ""}
+    {parameter_name ""}
+    {description ""}
+    {default_value ""}
+    {scope ""}
+    {return_url ""}
 }
 
 set user_id [ad_conn user_id]
@@ -33,11 +38,14 @@
 		 [list [export_vars -base version-parameters { version_id }] "Parameters"] \
 		 $title]
 
+#
+# GN: The code below should be replaced by ad_form
+#
 append body [subst {
 <form action="parameter-add-2" method="post">
 <blockquote>
 <table>
-[export_vars -form {package_key parameter_id version_id}]
+[export_vars -form {package_key parameter_id version_id return_url}]
 
 <tr>
   <td></td>
@@ -49,17 +57,17 @@
 
 <tr>
   <th align="right" nowrap>Parameter Name:</th>
-  <td><input name="parameter_name" size="50"></td>
+  <td><input name="parameter_name" size="50" value="[ns_quotehtml $parameter_name]"></td>
 </tr>
 
 <tr>
   <td></td>
-  <td>Type a description of your parameter.
+  <td>Description of the new parameter.
 </tr>
 
-<tr valign=top>
+<tr valign="top">
   <th align="right"><br>Description:</th>
-  <td><textarea name="description" cols="60" rows="8"></textarea>
+  <td><textarea name="description" cols="60" rows="8">[ns_quotehtml $description]</textarea>
 </td>
 </tr>
 
@@ -87,7 +95,7 @@
 <tr>
   <th align="right" nowrap>Scope:</th>
   <td><select name="scope">
-[ad_generic_optionlist {instance global} {instance global}]
+[ad_generic_optionlist {instance global} {instance global} $scope]
       </select>
   </td>
 </tr>
@@ -100,7 +108,7 @@
 <tr>
   <th align="right" nowrap>Type:</th>
   <td><select name="datatype">
-[ad_generic_optionlist {number string textarea} {number string text}]
+[ad_generic_optionlist {number string textarea} {number string text} string]
       </select>
   </td>
 </tr>
@@ -114,7 +122,7 @@
 
 <tr>
   <th align=right nowrap>Default:</th>
-  <td><input name="default_value" size="50"></td>
+  <td><input name="default_value" size="50" value="[ns_quotehtml $default_value]"></td>
 </tr>
 
 <tr><th colspan="2"><input type="submit" value="Add Parameter"></th>