Index: openacs-4/packages/fs-portlet/www/fs-contents-portlet-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/Attic/fs-contents-portlet-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/fs-portlet/www/fs-contents-portlet-postgresql.xql	24 Jul 2002 15:34:40 -0000	1.1
@@ -0,0 +1,32 @@
+<?xml version="1.0"?>
+
+<queryset>
+<rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+    <fullquery name="select_folder_contents">
+        <querytext>
+            select file_storage__get_package_id(fs_objects.object_id) as package_id,
+                   (CASE 
+                       WHEN fs_objects.type = 'url'
+                       THEN (select site_node.url(site_nodes.node_id)
+                                                   from site_nodes
+                                                   where site_nodes.object_id = file_storage.get_package_id(fs_objects.parent_id))
+                       ELSE (select site_node.url(site_nodes.node_id)
+                                            from site_nodes
+                                            where site_nodes.object_id = file_storage.get_package_id(fs_objects.object_id))
+                   END) as url,
+                   fs_objects.object_id,
+                   fs_objects.name,
+                   fs_objects.live_revision,
+                   fs_objects.type,
+                   fs_objects.content_size
+            from fs_objects
+            where fs_objects.parent_id in ([join $list_of_folder_ids ", "])
+            and 't' = acs_permission__permission_p(fs_objects.object_id, :user_id, 'read')
+            order by fs_objects.parent_id,
+                     fs_objects.sort_key,
+                     fs_objects.name
+        </querytext>
+    </fullquery>
+
+</queryset>
Index: openacs-4/packages/fs-portlet/www/fs-portlet-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-portlet-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/fs-portlet/www/fs-portlet-postgresql.xql	24 Jul 2002 15:34:40 -0000	1.1
@@ -0,0 +1,57 @@
+<?xml version="1.0"?>
+
+<queryset>
+<rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+    <fullquery name="select_folders">
+        <querytext>
+            select file_storage__get_package_id(fs_objects.object_id) as package_id,
+                   (CASE 
+                       WHEN fs_objects.type = 'url'
+                       THEN (select site_node__url(site_nodes.node_id)
+                                                   from site_nodes
+                                                   where site_nodes.object_id = file_storage__get_package_id(fs_objects.parent_id))
+                       ELSE (select site_node__url(site_nodes.node_id)
+                                            from site_nodes
+                                            where site_nodes.object_id = file_storage__get_package_id(fs_objects.object_id))
+                   END) as url,
+                   fs_objects.object_id,
+                   fs_objects.name,
+                   fs_objects.live_revision,
+                   fs_objects.type,
+                   fs_objects.content_size
+            from fs_objects
+            where fs_objects.object_id in ([join $list_of_folder_ids ", "])
+            and 't' = acs_permission__permission_p(fs_objects.object_id, :user_id, 'read')
+            order by fs_objects.sort_key,
+                     fs_objects.name
+        </querytext>
+    </fullquery>
+
+    <fullquery name="select_folder_contents">
+        <querytext>
+            select file_storage__get_package_id(fs_objects.object_id) as package_id,
+                   (CASE
+                      WHEN fs_objects.type = 'url'
+                      THEN (select site_node__url(site_nodes.node_id)
+                                                   from site_nodes
+                                                   where site_nodes.object_id = file_storage__get_package_id(fs_objects.parent_id))
+                      ELSE (select site_node__url(site_nodes.node_id)
+                                            from site_nodes
+                                            where site_nodes.object_id = file_storage__get_package_id(fs_objects.object_id))
+                   END) as url,
+                   fs_objects.object_id,
+                   fs_objects.name,
+                   fs_objects.live_revision,
+                   fs_objects.type,
+                   fs_objects.content_size
+            from fs_objects
+            where fs_objects.parent_id in ([join $list_of_folder_ids ", "])
+            and 't' = acs_permission__permission_p(fs_objects.object_id, :user_id, 'read')
+            order by fs_objects.parent_id,
+                     fs_objects.sort_key,
+                     fs_objects.name
+        </querytext>
+    </fullquery>
+
+</queryset>
Index: openacs-4/packages/fs-portlet/www/fs-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/www/fs-portlet.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/fs-portlet/www/fs-portlet.tcl	21 Jun 2002 21:06:19 -0000	1.13
+++ openacs-4/packages/fs-portlet/www/fs-portlet.tcl	24 Jul 2002 15:34:40 -0000	1.14
@@ -23,7 +23,7 @@
     @author Arjun Sanyal (arjun@openforce.net)
     @cvs_id $Id$
 } -query {
-    {n_past_days "-1"}
+    {n_past_days "99999"}
 } -properties {
     user_id:onevalue
     user_root_folder:onevalue