Index: openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	4 Mar 2002 18:26:03 -0000	1.8
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-oracle.xql	13 Mar 2002 21:17:12 -0000	1.9
@@ -46,7 +46,10 @@
                    fs_folders_and_files.live_revision,
                    fs_folders_and_files.type,
                    to_char(fs_folders_and_files.last_modified, 'YYYY-MM-DD HH24:MI') as last_modified,
-                   fs_folders_and_files.content_size
+                   fs_folders_and_files.content_size,
+                   decode(acs_permission.permission_p(fs_folders_and_files.file_id, :user_id, 'write'), 'f', 0, 1) as write_p,
+                   decode(acs_permission.permission_p(fs_folders_and_files.file_id, :user_id, 'delete'), 'f', 0, 1) as delete_p,
+                   decode(acs_permission.permission_p(fs_folders_and_files.file_id, :user_id, 'admin'), 'f', 0, 1) as admin_p
             from fs_folders_and_files
             where fs_folders_and_files.parent_id = :folder_id
             and 't' = acs_permission.permission_p(fs_folders_and_files.file_id, :user_id, 'read')