Index: openacs-4/packages/file-storage/www/move-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/move-postgresql.xql,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/file-storage/www/move-postgresql.xql	9 Dec 2008 09:02:31 -0000	1.8
+++ openacs-4/packages/file-storage/www/move-postgresql.xql	2 Apr 2013 12:04:43 -0000	1.9
@@ -51,6 +51,23 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="dbqd.file-storage.www.move.get_folder_tree">
+    <rdbms><type>postgresql</type><version>8.4</version></rdbms>
+    <querytext>
+    With folder_tree as (
+        select
+        cf.folder_id, ci1.parent_id, cf.label, tree_level(ci1.tree_sortkey) as level_num, acs_permission__permission_p(cf.folder_id, :user_id, 'write') as permission_p
+        from cr_folders cf, cr_items ci1, cr_items ci2
+        where
+        ci1.tree_sortkey between ci2.tree_sortkey and
+        tree_right(ci2.tree_sortkey)
+        and ci2.item_id= :root_folder_id
+        and ci1.item_id=cf.folder_id
+        order by ci1.tree_sortkey, cf.label
+    ) select folder_id, parent_id, label, level_num from folder_tree where permission_p is true;
+    </querytext>
+  </fullquery>
+
    <fullquery name="copy_item"> 	 
      <querytext> 	 
        select file_storage__copy_file(