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.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] } }]
     }