Index: openacs-4/packages/acs-subsite/www/admin/site-map/site-map-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/site-map-oracle.xql,v
diff -u -r1.3.20.1 -r1.3.20.2
--- openacs-4/packages/acs-subsite/www/admin/site-map/site-map-oracle.xql	3 Sep 2019 11:10:10 -0000	1.3.20.1
+++ openacs-4/packages/acs-subsite/www/admin/site-map/site-map-oracle.xql	17 Nov 2022 03:28:39 -0000	1.3.20.2
@@ -50,4 +50,21 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="path_select">
+        <querytext>
+    WITH site_node_path(node_id,parent_id,name,object_id,directory_p,mylevel) AS (
+       select node_id, parent_id, name, object_id, directory_p, 1 as mylevel
+       from site_nodes where node_id = :root_id
+    UNION ALL
+       select c.node_id, c.parent_id, c.name, c.object_id, c.directory_p, p.mylevel+1 mylevel
+       from site_node_path p, site_nodes c where  c.node_id = p.parent_id
+    )
+    select
+       node_id, name, directory_p, mylevel,
+       acs_object.name(object_id) as obj_name,
+       acs_permission.permission_p(object_id, :user_id, 'admin') as admin_p
+    from   site_node_path order by mylevel desc
+        </querytext>
+    </fullquery>
+
 </queryset>