Fisheye: Tag 1.22.2.1 refers to a dead (removed) revision in file `openacs-4/packages/file-storage/www/folder-chunk-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/file-storage/www/folder-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.tcl,v
diff -u -r1.61.2.15 -r1.61.2.16
--- openacs-4/packages/file-storage/www/folder-chunk.tcl	22 Oct 2022 17:47:18 -0000	1.61.2.15
+++ openacs-4/packages/file-storage/www/folder-chunk.tcl	4 Jan 2023 12:21:09 -0000	1.61.2.16
@@ -296,9 +296,6 @@
 
 set orderby [template::list::orderby_clause -name contents_${folder_id} -orderby]
 
-set categories_limitation [expr {$categories_p && $category_id ne "" ?
-                                 [db_map categories_limitation] : ""}]
-
 db_multirow -extend {
     label
     alt_icon
@@ -313,33 +310,7 @@
     new_version_url
     views
     categories
-} contents select_folder_contents [subst {
-            select fs_objects.object_id,
-                   fs_objects.mime_type,
-                   fs_objects.name,
-                   fs_objects.live_revision,
-                   fs_objects.type,
-                   fs_objects.pretty_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.sort_key,
-                   -fs_objects.sort_key as sort_key_desc,
-                   fs_objects.file_upload_name,
-                   fs_objects.title,
-                   case
-                     when :folder_path is null
-                     then fs_objects.file_upload_name
-                     else :folder_path || fs_objects.file_upload_name
-                   end as file_url,
-                   fs_objects.last_modified >= (current_timestamp - cast('$n_past_days days' as interval)) as new_p
-            from fs_objects
-            where fs_objects.parent_id = :folder_id
-            and   acs_permission.permission_p(fs_objects.object_id, :viewing_user_id, 'read')
-
-            $categories_limitation
-            $orderby
-}] {
+} contents select_folder_contents {} {
     set last_modified_ansi [lc_time_system_to_conn $last_modified_ansi]
     set last_modified_pretty [lc_time_fmt $last_modified_ansi "%x %X"]
 
Index: openacs-4/packages/file-storage/www/folder-chunk.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/folder-chunk.xql,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/file-storage/www/folder-chunk.xql	21 Nov 2017 11:35:22 -0000	1.3
+++ openacs-4/packages/file-storage/www/folder-chunk.xql	4 Jan 2023 12:21:09 -0000	1.3.2.1
@@ -10,10 +10,38 @@
     </querytext>
   </fullquery>
 
-  <partialquery name="categories_limitation">
+  <fullquery name="select_folder_contents">
     <querytext>
-      and fs_objects.object_id in ( select object_id from category_object_map where category_id = :category_id )
+      select fs_objects.object_id,
+             fs_objects.mime_type,
+             fs_objects.name,
+             fs_objects.live_revision,
+             fs_objects.type,
+             fs_objects.pretty_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.sort_key,
+             -fs_objects.sort_key as sort_key_desc,
+             fs_objects.file_upload_name,
+             fs_objects.title,
+             case
+               when :folder_path is null
+               then fs_objects.file_upload_name
+               else :folder_path || fs_objects.file_upload_name
+             end as file_url,
+             fs_objects.last_modified >= (current_timestamp - cast('$n_past_days days' as interval)) as new_p
+      from fs_objects
+      where fs_objects.parent_id = :folder_id
+      and   acs_permission.permission_p(fs_objects.object_id, :viewing_user_id, 'read')
+      and   (:categories_p = 'f' or
+             :category_id is null or
+             fs_objects.object_id in (select object_id from category_object_map
+                                       where category_id = :category_id)
+             )
+      $orderby
+
     </querytext>
-  </partialquery>
+  </fullquery>
 
 </queryset>