Index: openacs-4/packages/oacs-dav/tcl/oacs-dav-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/oacs-dav/tcl/oacs-dav-procs-oracle.xql,v diff -u -r1.3.2.3 -r1.3.2.4 --- openacs-4/packages/oacs-dav/tcl/oacs-dav-procs-oracle.xql 5 Apr 2004 18:47:12 -0000 1.3.2.3 +++ openacs-4/packages/oacs-dav/tcl/oacs-dav-procs-oracle.xql 18 Apr 2004 15:40:15 -0000 1.3.2.4 @@ -26,16 +26,17 @@ as collection_p from ( select * from cr_items - where parent_id=:folder_id - or item_id=:folder_id - -- connect by prior item_id=parent_id - -- start with item_id=:folder_id + where (parent_id=:folder_id + or item_id=:folder_id) + and level <= :depth + 1 + connect by prior item_id=parent_id + start with item_id=:folder_id ) ci1, cr_revisions cr, acs_objects o where - ci1.item_id=o.object_id and - ci1.live_revision = cr.revision_id(+) + ci1.item_id=o.object_id + and ci1.live_revision = cr.revision_id(+) and exists (select 1 from acs_object_party_privilege_map m where m.object_id = ci1.item_id