Index: openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql,v
diff -u -N -r1.51 -r1.51.2.1
--- openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	15 Jun 2018 15:11:04 -0000	1.51
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	15 Mar 2019 09:58:23 -0000	1.51.2.1
@@ -31,46 +31,6 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="fs::get_folder_objects.select_folder_contents">
-        <querytext>
-
-          select cr_items.item_id as object_id, cr_items.name
-          from   cr_items
-          where  cr_items.parent_id = :folder_id
-          and    acs_permission__permission_p(cr_items.item_id, :user_id, 'read')
-
-        </querytext>
-    </fullquery>
-
-    <fullquery name="fs::get_folder_contents.select_folder_contents">
-        <rdbms><type>postgresql</type><version>8.4</version></rdbms>
-        <querytext>
-
-           select fs_objects.object_id,
-           fs_objects.name,
-           fs_objects.title,
-           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,
-           fs_objects.title,
-           case when fs_objects.last_modified >= (now() - interval '$n_past_days days') then 1 else 0 end as new_p,
-           acs_permission__permission_p(fs_objects.object_id, :user_id, 'admin') as admin_p,
-           acs_permission__permission_p(fs_objects.object_id, :user_id, 'delete') as delete_p,
-           acs_permission__permission_p(fs_objects.object_id, :user_id, 'write') as write_p
-           from fs_objects
-           where fs_objects.parent_id = :folder_id
-           and acs_permission__permission_p(fs_objects.object_id, :user_id, 'read')
-           order by fs_objects.sort_key, fs_objects.name
-
-        </querytext>
-    </fullquery>
-
-
     <fullquery name="fs_get_folder_name.folder_name">
         <querytext>
             select file_storage__get_folder_name(:folder_id);
@@ -97,15 +57,6 @@
         </querytext>
     </fullquery>
 
-    <fullquery name="children_have_permission_p.revision_perms">
-        <querytext>
-            select count(*)
-            from cr_revisions
-            where item_id = :child_item_id
-            and acs_permission__permission_p(revision_id, :user_id, :privilege) = 'f'
-        </querytext>
-    </fullquery>
-
     <fullquery name="fs_context_bar_list.title">
         <querytext>
             select file_storage__get_title(:item_id)