Index: openacs-4/packages/directory/tcl/directory-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/directory/tcl/Attic/directory-procs-postgresql.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/directory/tcl/directory-procs-postgresql.xql	21 Oct 2001 18:16:34 -0000	1.1
+++ openacs-4/packages/directory/tcl/directory-procs-postgresql.xql	27 Oct 2001 00:11:04 -0000	1.2
@@ -3,7 +3,7 @@
 <queryset>
    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
-<fullquery name="dir_app_group_info.subsite_p">      
+<fullquery name="dir_app_group_info.subsite_p_1">      
       <querytext>
     
          select s2.object_id as subsite_id, tree_level(s2.tree_sortkey) as level
@@ -17,5 +17,22 @@
 
       </querytext>
 </fullquery>
+
+<fullquery name="dir_app_group_info.subsite_p_2">      
+      <querytext>
+    
+         select s2.object_id as subsite_id,
+             tree_level(s2.tree_sortkey) as level,
+             acs_object__name(object_id) as subsite_name
+         from site_nodes s1, site_nodes s2, apm_packages p
+         where s1.node_id = :node_id
+            and s2.tree_sortkey <= s1.tree_sortkey
+            and s1.tree_sortkey like (s2.tree_sortkey || '%')
+            and p.package_id = s2.object_id and p.package_key = 'acs-subsite'
+         order by level
+         limit 1
+
+      </querytext>
+</fullquery>
  
 </queryset>