Index: openacs-4/contrib/packages/simulation/www/citybuild/object-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/citybuild/Attic/object-delete.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/simulation/www/citybuild/object-delete.tcl	27 Jan 2004 14:58:17 -0000	1.3
+++ openacs-4/contrib/packages/simulation/www/citybuild/object-delete.tcl	30 Jan 2004 09:34:05 -0000	1.4
@@ -6,13 +6,14 @@
     {return_url "."}
 }
 
+array set item [bcms::item::get_item -item_id $item_id -revision live]
+
 if { [template::util::is_true $confirm_p] } {
     permission::require_write_permission -object_id $item_id    
     bcms::item::delete_item -item_id $item_id
-    ad_returnredirect $return_url
+    ad_returnredirect -message "\"$item(title)\" has been deleted." -break $return_url
 }
 
-array set item [bcms::item::get_item -item_id $item_id -revision live]
 set page_title "Delete object \"$item(title)\""
 set context [list [list "." "CityBuild"] $page_title]