Index: openacs-4/packages/acs-admin/www/apm/parameter-edit-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/parameter-edit-2.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-admin/www/apm/parameter-edit-2.tcl 23 May 2003 11:38:33 -0000 1.3 +++ openacs-4/packages/acs-admin/www/apm/parameter-edit-2.tcl 17 Sep 2003 18:35:47 -0000 1.4 @@ -38,4 +38,14 @@
[ad_quotehtml $errmsg]
" } -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 [export_vars -base "version-parameters" { version_id section_name }] +