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 "<a href=\"index?folder_id=$folder_id\">$folder_name</a>"
+         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 "<a href=\"index?folder_id=$folder_id\">$folder_name</a>"
+         ad_return_complaint 1 "[_ file-storage.lt_The_folder_link_you_s]"
+         ad_script_abort
+         }
      }
 
      ad_returnredirect $return_url