Index: openacs-4/packages/acs-tcl/tcl/navigation-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/navigation-procs-postgresql.xql,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/acs-tcl/tcl/navigation-procs-postgresql.xql	8 Dec 2001 01:17:59 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/navigation-procs-postgresql.xql	9 Dec 2001 04:21:58 -0000	1.7
@@ -7,10 +7,9 @@
     select site_node__url(n2.node_id) as url, n2.object_id,
            acs_object__name(n2.object_id) as object_name,
            tree_level(n2.tree_sortkey) as level
-    from (select * from site_nodes where node_id = :node_id) n1,
+    from (select tree_ancestor_keys(site_node_get_tree_sortkey(:node_id)) as tree_sortkey) parents,
         site_nodes n2
-    where n1.tree_sortkey between n2.tree_sortkey and tree_right(n2.tree_sortkey)
-      and tree_ancestor_p(n2.tree_sortkey, n1.tree_sortkey)
+    where n2.tree_sortkey = parents.tree_sortkey
  order by level asc
   
       </querytext>