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.5.2.1 -r1.5.2.2
--- openacs-4/packages/file-storage/www/move.tcl	2 Apr 2006 22:11:50 -0000	1.5.2.1
+++ openacs-4/packages/file-storage/www/move.tcl	6 Apr 2006 01:21:58 -0000	1.5.2.2
@@ -13,9 +13,9 @@
     {root_folder_id ""}
     {redirect_to_folder:boolean 0}
     {show_items:boolean 0}
+} -errors {object_id:,notnull,integer,multiple {Please select at least one item to move.}
 }
 
-
 set objects_to_move $object_id
 set object_id_list [join $object_id ","]
 
@@ -52,14 +52,20 @@
     # check for WRTIE permission on each object to be moved
     # DaveB: I think it should be DELETE instead of WRITE
     # but the existing file-move page checks for WRITE
-      
+     set error_items [list]
     template::multirow foreach move_objects {
 	db_transaction {
 	    db_exec_plsql move_item {}
-      }
+	} on_error {
+	    lappend error_items $name
+	}
     }    
-
-     ad_returnredirect $return_url
+     if {[llength $error_items]} {
+	 set message "There was a problem moving the following items: [join $error_items ", "]"
+     } else {
+	 set message "Selected items moved"
+     }
+     ad_returnredirect -message $message $return_url
      ad_script_abort
 
  } else {