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 @@
+
+ postgresql8.4
+
+ 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;
+
+
+
select file_storage__copy_file(