Index: openacs-4/packages/file-storage/www/folder-chunk-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/file-storage/www/folder-chunk-oracle.xql	18 Nov 2002 18:01:05 -0000	1.2
+++ openacs-4/packages/file-storage/www/folder-chunk-oracle.xql	18 Feb 2003 20:56:09 -0000	1.3
@@ -4,20 +4,40 @@
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
     <fullquery name="select_folder_contents">
         <querytext>
-            select  fs_objects.object_id,
-                         fs_objects.name,
-                         fs_objects.live_revision,
-                         fs_objects.type,
-                         to_char(fs_objects.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified_ansi,
-                         fs_objects.content_size,
-                         fs_objects.url,
-                         fs_objects.key,
-                         fs_objects.sort_key,
-			 fs_objects.file_upload_name,
-                         case when fs_objects.last_modified >= (sysdate - :n_past_days) then 1 else 0 end as new_p
-                  from fs_objects
-                  where fs_objects.parent_id = :folder_id
-	          order by sort_key, name
+
+            select fs_objects.object_id,
+                   fs_objects.name,
+                   fs_objects.live_revision,
+                   fs_objects.type,
+                   to_char(fs_objects.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified,
+                   fs_objects.content_size,
+                   fs_objects.url,
+                   fs_objects.sort_key,
+                   fs_objects.file_upload_name,
+                   case when fs_objects.last_modified >= (sysdate - :n_past_days) then 1 else 0 end as new_p,
+                   case
+                     when type = 'url'
+                     then acs_permission.permission_p(fs_objects.object_id, :viewing_user_id, 'delete')
+                     else 't'
+                   end as delete_p,
+                   case
+                     when type = 'url'
+                     then acs_permission.permission_p(fs_objects.object_id, :viewing_user_id, 'write')
+                     else 't'
+                   end as write_p
+            from fs_objects
+            where fs_objects.parent_id = :folder_id
+              and exists (select 1
+                   from acs_object_party_privilege_map m
+                   where m.object_id = fs_objects.object_id
+                     and m.party_id = :viewing_user_id
+                     and m.privilege = 'read')
+            order by fs_objects.sort_key, fs_objects.name
+
         </querytext>
     </fullquery>
-</queryset>
\ No newline at end of file
+</queryset>
+
+
+
+