Index: openacs-4/packages/file-storage/www/copy.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/copy.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/file-storage/www/copy.tcl 11 May 2004 00:49:24 -0000 1.1.2.1 +++ openacs-4/packages/file-storage/www/copy.tcl 22 Jul 2004 17:38:19 -0000 1.1.2.2 @@ -48,7 +48,14 @@ # but the existing file-copy page checks for WRITE template::multirow foreach copy_objects { + db_transaction { db_exec_plsql copy_item {} + } on_error { + set folder_name "[_ file-storage.folder]" + set folder_link "$folder_name" + ad_return_complaint 1 "[_ file-storage.lt_The_folder_link_you_s]" + ad_script_abort + } } ad_returnredirect $return_url Index: openacs-4/packages/file-storage/www/move.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/move.tcl,v diff -u -r1.1.2.5 -r1.1.2.6 --- openacs-4/packages/file-storage/www/move.tcl 20 Jul 2004 20:22:09 -0000 1.1.2.5 +++ openacs-4/packages/file-storage/www/move.tcl 22 Jul 2004 17:38:19 -0000 1.1.2.6 @@ -49,7 +49,14 @@ # but the existing file-move page checks for WRITE template::multirow foreach move_objects { + db_transaction { db_exec_plsql move_item {} + } on_error { + set folder_name "[_ file-storage.folder]" + set folder_link "$folder_name" + ad_return_complaint 1 "[_ file-storage.lt_The_folder_link_you_s]" + ad_script_abort + } } ad_returnredirect $return_url