Index: openacs-4/packages/file-storage/www/move-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/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 @@ - 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