Index: openacs-4/packages/acs-admin/www/apm/parameter-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/parameter-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/apm/parameter-delete.tcl	10 Sep 2002 22:21:59 -0000	1.2
+++ openacs-4/packages/acs-admin/www/apm/parameter-delete.tcl	17 Sep 2003 18:35:47 -0000	1.3
@@ -6,9 +6,25 @@
     @cvs-id $Id$
 } {
     parameter_id:naturalnum,notnull
+    section_name:notnull
     version_id:naturalnum,notnull
 }
 
 apm_parameter_unregister $parameter_id
 
-ad_returnredirect version-parameters?version_id=$version_id
+db_1row apm_package_by_version_id {
+    select pretty_name, version_name, package_key
+      from apm_package_version_info 
+     where version_id = :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 [export_vars -base "version-parameters" { version_id section_name }]