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.4 -r1.4.2.1
--- openacs-4/packages/file-storage/www/move-oracle.xql	13 Jan 2005 13:58:13 -0000	1.4
+++ openacs-4/packages/file-storage/www/move-oracle.xql	4 May 2006 11:50:23 -0000	1.4.2.1
@@ -15,14 +15,27 @@
   
   <fullquery name="get_move_objects">
     <querytext>
-      select fs.object_id, fs.name,
+      select fs.object_id, fs.name, fs.type, fs.parent_id,
       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="copy_item">
+    <querytext>
+      begin
+      :1 := file_storage.copy_file(
+           :object_id,
+           :folder_id,
+	   :user_id,
+           :peer_addr
+      );
+      end;
+    </querytext>
+  </fullquery>
+
   <fullquery name="move_item">
     <querytext>
 	begin