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]