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.5 -r1.6
--- openacs-4/packages/file-storage/www/move-oracle.xql 26 May 2005 08:28:46 -0000 1.5
+++ openacs-4/packages/file-storage/www/move-oracle.xql 8 Aug 2006 21:26:49 -0000 1.6
@@ -15,14 +15,27 @@
- 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
+
+
+ begin
+ :1 := file_storage.copy_file(
+ :object_id,
+ :folder_id,
+ :user_id,
+ :peer_addr
+ );
+ end;
+
+
+
begin
@@ -56,4 +69,4 @@
-
\ No newline at end of file
+