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 -r1.2 -r1.3
--- openacs-4/packages/directory/tcl/directory-procs-postgresql.xql	27 Oct 2001 00:11:04 -0000	1.2
+++ openacs-4/packages/directory/tcl/directory-procs-postgresql.xql	8 Dec 2001 01:18:00 -0000	1.3
@@ -9,8 +9,7 @@
          select s2.object_id as subsite_id, tree_level(s2.tree_sortkey) as level
          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 s1.tree_sortkey between s2.tree_sortkey and tree_right(s2.tree_sortkey)
             and p.package_id = s2.object_id and p.package_key = 'acs-subsite'
          order by level
          limit 1
@@ -26,8 +25,7 @@
              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 s1.tree_sortkey between s2.tree_sortkey and tree_right(s2.tree_sortkey)
             and p.package_id = s2.object_id and p.package_key = 'acs-subsite'
          order by level
          limit 1