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.2 -r1.3
--- openacs-4/contrib/packages/simulation/www/citybuild/object-delete.tcl	2 Dec 2003 17:24:32 -0000	1.2
+++ openacs-4/contrib/packages/simulation/www/citybuild/object-delete.tcl	27 Jan 2004 14:58:17 -0000	1.3
@@ -12,7 +12,8 @@
     ad_returnredirect $return_url
 }
 
-set page_title "Delete Object"
+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]
 
 set delete_url [export_vars -base [ad_conn url] { item_id return_url { confirm_p 1 } }]