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.2 -r1.3
--- openacs-4/packages/file-storage/www/copy.tcl	17 May 2004 15:15:14 -0000	1.2
+++ openacs-4/packages/file-storage/www/copy.tcl	24 Jul 2004 08:34:20 -0000	1.3
@@ -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