Index: openacs-4/packages/acs-subsite/www/admin/applications/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/index.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/www/admin/applications/index.tcl	29 Sep 2003 11:53:35 -0000	1.4
+++ openacs-4/packages/acs-subsite/www/admin/applications/index.tcl	15 Oct 2003 09:37:57 -0000	1.5
@@ -14,18 +14,23 @@
 array set subsite_sitenode [site_node::get -url $subsite_url]
 set subsite_node_id $subsite_sitenode(node_id)
 
-db_multirow applications select_applications {
+db_multirow -extend { parameter_url } applications select_applications {
     select n.node_id, 
            n.name, 
            p.package_id,
            p.instance_name,
-           pt.pretty_name as package_pretty_name
+           pt.pretty_name as package_pretty_name,
+           (select count(*) from apm_parameters par where par.package_key = pt.package_key) as num_parameters
     from   site_nodes n,
            apm_packages p,
            apm_package_types pt
     where  n.parent_id = :subsite_node_id
     and    p.package_id = n.object_id
     and    pt.package_key = p.package_key
+} {
+    if { $num_parameters > 0 } {
+        set parameter_url [export_vars -base ../../shared/parameters { package_id { return_url [ad_return_url] } }]
+    }
 }
 
 list::create \
@@ -61,7 +66,14 @@
             label "Permissions"
             link_url_eval {[export_vars -base permissions { package_id }]}
             display_template {Permissions}
+            sub_class narrow
         }
+        parameters {
+            label "Parameters"
+            link_url_col parameter_url
+            display_template {<if @applications.parameter_url@ not nil>Parameters</if>}
+            sub_class narrow
+        }
         delete {
             sub_class narrow
             display_template {