Index: openacs-4/packages/file-storage/www/move-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/move-oracle.xql,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/file-storage/www/move-oracle.xql	10 May 2004 02:40:30 -0000	1.1.2.1
+++ openacs-4/packages/file-storage/www/move-oracle.xql	10 May 2004 19:29:02 -0000	1.1.2.2
@@ -13,6 +13,16 @@
     <version>8.1.6</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(