Index: openacs-4/packages/file-storage/tcl/file-storage-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.xql,v diff -u -r1.10.2.1 -r1.10.2.2 --- openacs-4/packages/file-storage/tcl/file-storage-procs.xql 6 Feb 2003 13:00:52 -0000 1.10.2.1 +++ openacs-4/packages/file-storage/tcl/file-storage-procs.xql 18 Feb 2003 01:45:42 -0000 1.10.2.2 @@ -54,6 +54,28 @@ + + + + select * + from (select cr_items.item_id as object_id, + cr_items.name + from cr_items + where cr_items.parent_id = :folder_id + union all + select fs_simple_objects.object_id, + fs_simple_objects.name + from fs_simple_objects + where fs_simple_objects.folder_id = :folder_id) contents + where exists (select 1 + from acs_object_party_privilege_map m + where m.object_id = contents.object_id + and m.party_id = :user_id + and m.privilege = 'read') + + + + select count(*)