Index: openacs-4/packages/acs-subsite/www/shared/parameters-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/Attic/parameters-oracle.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/shared/parameters-oracle.xql	12 Sep 2003 12:34:21 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/shared/parameters-oracle.xql	2 Oct 2003 17:04:08 -0000	1.2
@@ -18,6 +18,7 @@
            ) v
     where  p.package_key = (select package_key from apm_packages where package_id = :package_id)
     and    p.parameter_id = v.parameter_id
+    $section_where_clause
     order  by section_name, parameter_name
 
       </querytext>
@@ -35,7 +36,7 @@
                ) v
         where  p.package_key = (select package_key from apm_packages where package_id = :package_id)
         and    p.parameter_id = v.parameter_id
-
+    $section_where_clause
       </querytext>
 </fullquery>
  
Index: openacs-4/packages/acs-subsite/www/shared/parameters-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/Attic/parameters-postgresql.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/shared/parameters-postgresql.xql	12 Sep 2003 12:34:21 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/shared/parameters-postgresql.xql	2 Oct 2003 17:04:08 -0000	1.2
@@ -17,6 +17,7 @@
             where v.package_id = :package_id
            ) v on p.parameter_id = v.parameter_id
     where  p.package_key = (select package_key from apm_packages where package_id = :package_id)
+	$section_where_clause
     order  by section_name, parameter_name
 
       </querytext>
@@ -34,7 +35,7 @@
                 where v.package_id = :package_id
                ) v on p.parameter_id = v.parameter_id
         where  p.package_key = (select package_key from apm_packages where package_id = :package_id)
-
+	$section_where_clause
       </querytext>
 </fullquery>
  
Index: openacs-4/packages/acs-subsite/www/shared/parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/parameters.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/shared/parameters.tcl	19 Sep 2003 13:57:20 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/shared/parameters.tcl	2 Oct 2003 17:04:08 -0000	1.5
@@ -7,6 +7,7 @@
 } {
     {package_id {[ad_conn package_id]}}
     {return_url {[ad_conn url]}}
+    {section ""}
 }
 
 permission::require_permission -object_id $package_id -privilege admin
@@ -37,6 +38,12 @@
 set display_warning_p 0
 set counter 0
 set focus_elm {}
+if {![empty_string_p $section]} {
+    set section_where_clause [db_map section_where_clause]
+} else {
+    set section_where_clause ""
+}
+
 db_foreach select_params {} {
     if { [empty_string_p $section_name] } {
         set section_name "Main"
@@ -70,7 +77,7 @@
 set focus "parameters.$focus_elm"
 
 if { $counter > 0 } {
-    ad_form -name parameters -cancel_url $return_url -form $form -on_request {
+    ad_form -name parameters -export {section} -cancel_url $return_url -form $form -on_request {
         foreach name [array names param] {
             set $name $param($name)
         }
Index: openacs-4/packages/acs-subsite/www/shared/parameters.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/parameters.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/shared/parameters.xql	2 Oct 2003 17:04:08 -0000	1.1
@@ -0,0 +1,10 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+  <fullquery name="section_where_clause">
+    <querytext>
+      and section_name=:section
+    </querytext>
+  </fullquery>
+</queryset>