Index: openacs-4/packages/file-storage/www/file-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-oracle.xql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/file-storage/www/file-oracle.xql	18 Nov 2002 18:01:05 -0000	1.7
+++ openacs-4/packages/file-storage/www/file-oracle.xql	17 May 2003 10:39:54 -0000	1.8
@@ -32,10 +32,14 @@
        		acs_permission.permission_p(r.revision_id,:user_id,'delete') as delete_p,
        		r.content_length as content_size
 	from   acs_objects o, cr_revisions r, cr_items i
-	where  o.object_id = r.revision_id
-	and    acs_permission.permission_p(r.revision_id, :user_id, 'read') = 't'
-	and    r.item_id = i.item_id
-	and    r.item_id = :file_id
+	where o.object_id = r.revision_id
+	  and r.item_id = i.item_id
+	  and r.item_id = :file_id
+          and exists (select 1
+                      from acs_object_party_privilege_map m
+                      where m.object_id = r.revision_id
+                        and m.party_id = :user_id
+                        and m.privilege = 'read')
 	$show_versions order by last_modified desc
 
       </querytext>