Index: openacs-4/packages/acs-admin/lib/service-parameters-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/lib/Attic/service-parameters-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/lib/service-parameters-oracle.xql	12 Sep 2003 12:39:44 -0000	1.1
@@ -0,0 +1,27 @@
+<?xml version="1.0"?>
+
+<queryset>
+    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+    <fullquery name="services_select">
+        <querytext>
+            select q.*
+            from   (select package_id,
+                           ap.package_key,
+                           acs_object.name(package_id) as instance_name,
+                           apm_package_type.num_parameters(ap.package_key) as parameter_count
+                    from apm_packages ap,
+                         apm_package_types
+                    where ap.package_key = apm_package_types.package_key
+                    and package_type = 'apm_service'
+                    and (
+                            acs_permission.permission_p(package_id, :user_id, 'read') = 't'
+                         or acs_permission.permission_p(package_id, acs.magic_object_id('the_public'), 'read') = 't'
+                        )
+                   ) q
+            where  parameter_count > 0
+            order by instance_name
+        </querytext>
+    </fullquery>
+
+</queryset>
Index: openacs-4/packages/acs-admin/lib/service-parameters-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/lib/Attic/service-parameters-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/lib/service-parameters-postgresql.xql	12 Sep 2003 12:39:44 -0000	1.1
@@ -0,0 +1,27 @@
+<?xml version="1.0"?>
+
+<queryset>
+    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+    <fullquery name="services_select">
+        <querytext>
+            select q.*
+            from   (select package_id,
+                           ap.package_key,
+                           acs_object__name(package_id) as instance_name,
+                           apm_package_type__num_parameters(ap.package_key) as parameter_count
+                    from apm_packages ap,
+                         apm_package_types
+                    where ap.package_key = apm_package_types.package_key
+                    and package_type = 'apm_service'
+                    and (
+                            acs_permission__permission_p(package_id, :user_id, 'read') = 't'
+                         or acs_permission__permission_p(package_id, acs__magic_object_id('the_public'), 'read') = 't'
+                        )
+                   ) q
+            where  parameter_count > 0 
+            order by instance_name
+        </querytext>
+    </fullquery>
+
+</queryset>
Index: openacs-4/packages/acs-admin/lib/service-parameters.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/lib/service-parameters.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/lib/service-parameters.adp	12 Sep 2003 12:39:44 -0000	1.1
@@ -0,0 +1 @@
+<listtemplate name="packages"></listtemplate>
Index: openacs-4/packages/acs-admin/lib/service-parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/lib/service-parameters.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-admin/lib/service-parameters.tcl	12 Sep 2003 12:39:44 -0000	1.1
@@ -0,0 +1,18 @@
+#
+# Service parameters list
+#
+
+template::list::create \
+    -name packages \
+    -multirow packages \
+    -elements {
+        instance_name {
+            label {Package}
+            link_url_eval {[export_vars -base "/shared/parameters" { package_id { return_url {[ad_return_url]} } }]}
+            link_html { title "Edit parameters" }
+        }
+    }
+
+set user_id [ad_conn user_id]
+db_multirow packages services_select {}
+
Index: openacs-4/packages/acs-admin/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/index.adp,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-admin/www/index.adp	3 Sep 2003 10:35:24 -0000	1.3
+++ openacs-4/packages/acs-admin/www/index.adp	12 Sep 2003 12:39:44 -0000	1.4
@@ -6,7 +6,7 @@
 <include src="/packages/acs-admin/lib/site-wide-services">
 
 <if @packages:rowcount@ gt 0>
-  <h3>Package Administration</h3>
+  <h3>Site-Wide Package Administration</h3>
   <ul>
     <multiple name="packages">
       <li><a href="@packages.admin_url@/\">@packages.pretty_name@</a></li>
@@ -23,3 +23,8 @@
   </ul>
 </if>
 
+<h3>Package Parameters</h3>
+
+<include src="/packages/acs-admin/lib/service-parameters">
+
+