Index: openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl	23 May 2003 11:38:33 -0000	1.4
+++ openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl	12 Sep 2003 08:05:14 -0000	1.5
@@ -49,4 +49,13 @@
     }
 }
 
-ad_returnredirect version-parameters?[export_url_vars version_id]
+# LARS hack
+set sections [lindex [lindex [apm_parameter_section_slider $package_key] 0] 3]
+foreach section $sections {
+    if { [string equal $section_name [lindex $section 1]] } {
+        set section_name [lindex $section 0]
+        break
+    }
+}
+
+ad_returnredirect version-parameters?[export_url_vars version_id section_name]
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.2 -r1.3
--- openacs-4/packages/acs-admin/www/apm/parameter-add.tcl	10 Sep 2002 22:21:59 -0000	1.2
+++ openacs-4/packages/acs-admin/www/apm/parameter-add.tcl	12 Sep 2003 08:05:14 -0000	1.3
@@ -5,6 +5,7 @@
     @cvs-id $Id$
 } {
     version_id:naturalnum,notnull
+    {section_name ""}
 }
 
 set user_id [ad_get_user_id]
@@ -54,7 +55,7 @@
 
 <tr valign=top>
   <th align=right><br>Section Name:</th>
-  <td><input name=section_name size=50><br>
+<td><input name=section_name size=50 value=\"[ad_quotehtml $section_name]\"><br>
 </td>
 </tr>
 
Index: openacs-4/packages/acs-admin/www/apm/version-parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-parameters.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-admin/www/apm/version-parameters.tcl	10 Sep 2002 22:21:59 -0000	1.3
+++ openacs-4/packages/acs-admin/www/apm/version-parameters.tcl	12 Sep 2003 08:05:14 -0000	1.4
@@ -9,6 +9,7 @@
 } {
     {orderby ""}
     {version_id:integer}
+    {section_name ""}
 }
 
 db_1row apm_package_by_version_id {
@@ -49,12 +50,23 @@
     doc_body_append "[ad_dimensional $dimensional_list]<p>"
 }
 
+# LARS hack
+set sections [lindex [lindex $dimensional_list 0] 3]
+foreach section $sections {
+    if { [string equal $section_name [lindex $section 0]] } {
+        set section_name [lindex $section 1]
+        break
+    }
+}
+
+
+
 doc_body_append "[ad_table -Torderby $orderby \
      -bind [ad_tcl_vars_to_ns_set version_id package_key] \
      -Textra_vars {version_id} \
      -Tmissing_text "No parameters registered in this section." \
 		     parameter_table "" $table_def]
-<br><a href=parameter-add?[export_url_vars version_id]>Add a new parameter</a>
+<br><a href=parameter-add?[export_url_vars version_id section_name]>Add a new parameter</a>
 
 </blockquote>
 [ad_footer]