Index: openacs-4/packages/acs-subsite/www/admin/applications/index-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/index-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/applications/index-oracle.xql	26 Jan 2005 00:16:39 -0000	1.1
@@ -0,0 +1,28 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="select_applications">      
+      <querytext>
+
+    select n.node_id, 
+           n.name, 
+           p.package_id,
+           p.instance_name,
+           pt.pretty_name as package_pretty_name,
+           0 as level,
+           (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
+    order  by lower(p.instance_name)
+
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-subsite/www/admin/applications/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/applications/index-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-subsite/www/admin/applications/index-postgresql.xql	26 Jan 2005 00:16:39 -0000	1.1
@@ -0,0 +1,30 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="select_applications">      
+      <querytext>
+
+    select n.node_id, 
+           n.name, 
+           p.package_id,
+           p.instance_name,
+           tree_level(n.tree_sortkey) - tree_level(np.tree_sortkey) as level,
+           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,
+           site_nodes np,
+           apm_packages p,
+           apm_package_types pt
+    where  np.node_id = :subsite_node_id
+    and    n.tree_sortkey between np.tree_sortkey and tree_right(np.tree_sortkey)
+    and    p.package_id = n.object_id
+    and    pt.package_key = p.package_key
+    order  by n.tree_sortkey
+
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
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 -r1.6 -r1.7
--- openacs-4/packages/acs-subsite/www/admin/applications/index.tcl	5 Jan 2004 09:30:02 -0000	1.6
+++ openacs-4/packages/acs-subsite/www/admin/applications/index.tcl	26 Jan 2005 00:16:39 -0000	1.7
@@ -14,21 +14,8 @@
 array set subsite_sitenode [site_node::get -url $subsite_url]
 set subsite_node_id $subsite_sitenode(node_id)
 
-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,
-           (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
-    order  by lower(p.instance_name)
-} {
+db_multirow -extend { parameter_url } applications select_applications {} {
+    set instance_name "[string repeat .. $level]$instance_name"
     if { $num_parameters > 0 } {
         set parameter_url [export_vars -base ../../shared/parameters { package_id { return_url [ad_return_url] } }]
     }