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.38.2.7 -r1.38.2.8
--- openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	23 Nov 2004 23:09:05 -0000	1.38.2.7
+++ openacs-4/packages/file-storage/tcl/file-storage-procs-postgresql.xql	13 Dec 2004 16:33:53 -0000	1.38.2.8
@@ -223,4 +223,20 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="fs::get_folder_package_and_root.select_package_and_root">
+    <querytext>
+      select r.package_id,
+             r.folder_id as root_folder_id
+      from fs_root_folders r,
+           (select parent.item_id as folder_id
+            from cr_items parent,
+                 cr_items children
+            where children.item_id = :folder_id
+              and children.tree_sortkey
+                between parent.tree_sortkey
+                and tree_right(parent.tree_sortkey)) t
+      where r.folder_id = t.folder_id
+    </querytext>
+  </fullquery>
+
 </queryset>