Index: openacs-4/packages/file-storage/www/copy-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/copy-oracle.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/file-storage/www/copy-oracle.xql	13 Jan 2005 13:58:13 -0000	1.3
+++ openacs-4/packages/file-storage/www/copy-oracle.xql	20 Mar 2005 15:44:29 -0000	1.4
@@ -16,7 +16,7 @@
   <fullquery name="get_copy_objects">
     <querytext>
       select fs.object_id, fs.name,
-      acs_permission.permission_p(fs.object_id, :user_id, 'read') as copy_p
+      acs_permission.permission_p(fs.object_id, :user_id, 'read') as copy_p, fs.type
       from fs_objects fs
       where fs.object_id in ([template::util::tcl_to_sql_list $object_id])
 	order by copy_p
@@ -35,6 +35,18 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="copy_folder">
+    <querytext>
+        begin 
+         :1 = content_folder.copy (
+           :object_id,
+           :folder_id,
+	   :user_id,
+           :peer_addr );
+        end;
+    </querytext>
+  </fullquery>
+
   <fullquery name="get_folder_tree">
     <querytext>
       select