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 -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/file-storage/www/move-postgresql.xql	17 May 2004 15:15:14 -0000	1.2
@@ -0,0 +1,54 @@
+<?xml version="1.0"?>
+<!DOCTYPE queryset PUBLIC "-//OpenACS//DTD XQL 1.0//EN"
+"http://www.thecodemill.biz/repository/xql.dtd">
+
+<!-- @author Dave Bauer (dave@thedesignexperience.org) -->
+<!-- @creation-date 2004-05-09 -->
+<!-- @cvs-id $Id: move-postgresql.xql,v 1.2 2004/05/17 15:15:14 jeffd Exp $ -->
+
+<queryset>
+  
+  <rdbms>
+    <type>postgresql</type>
+    <version>7.2</version>
+  </rdbms>
+  
+  <fullquery name="get_move_objects">
+    <querytext>
+      select fs.object_id, fs.name,
+      acs_permission__permission_p(fs.object_id, :user_id, 'write') as move_p
+      from fs_objects fs
+      where fs.object_id in ([template::util::tcl_to_sql_list $object_id])
+	order by move_p
+    </querytext>
+  </fullquery>
+
+  <fullquery name="move_item">
+    <querytext>
+      select content_item__move(
+           :one_item,
+           :folder_id
+      )
+    </querytext>
+  </fullquery>
+
+  <fullquery name="get_folder_tree">
+    <querytext>
+      select
+      cf.folder_id, cf.label, tree_level(ci1.tree_sortkey) as level
+      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
+      and exists (select 1
+                   from acs_object_party_privilege_map m
+                   where m.object_id = cf.folder_id
+                     and m.party_id = :user_id
+                     and m.privilege = 'write')
+      order by tree_level(ci1.tree_sortkey), cf.label
+    </querytext>
+  </fullquery>
+  
+</queryset>
\ No newline at end of file