Index: openacs-4/packages/file-storage/www/file-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-postgresql.xql,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/file-storage/www/file-postgresql.xql	24 Sep 2002 16:18:35 -0000	1.6
+++ openacs-4/packages/file-storage/www/file-postgresql.xql	17 Feb 2003 20:33:19 -0000	1.6.2.1
@@ -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>