Index: openacs-4/packages/file-storage/www/move-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/move-postgresql.xql,v diff -u -r1.4.2.1 -r1.4.2.2 --- openacs-4/packages/file-storage/www/move-postgresql.xql 2 Apr 2006 22:11:50 -0000 1.4.2.1 +++ openacs-4/packages/file-storage/www/move-postgresql.xql 2 May 2006 12:04:17 -0000 1.4.2.2 @@ -15,14 +15,36 @@ - 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 + + + select file_storage__copy_file( + :object_id, + :folder_id, + :user_id, + :peer_addr + ) + + + + + + select content_folder__copy ( + :object_id, + :folder_id, + :user_id, + :peer_addr + ) + + + select content_item__move(