Index: openacs-4/packages/simulation/www/citybuild/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/citybuild/index.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/simulation/www/citybuild/index.tcl	13 Nov 2003 14:55:26 -0000	1.2
+++ openacs-4/packages/simulation/www/citybuild/index.tcl	2 Dec 2003 13:46:53 -0000	1.3
@@ -8,10 +8,15 @@
     {type:optional}
 }
 
+
 set page_title "CityBuild"
 set context [list $page_title]
 set package_id [ad_conn package_id]
+
+permission::require_permission -object_id $package_id -privilege sim_object_create
+
 set admin_p [permission::permission_p -object_id $package_id -privilege admin]
+set map_p [expr $admin_p ||[permission::permission_p -object_id $package_id -privilege sim_set_map_p]]
 
 set notification_widget [notification::display::request_widget \
                              -type [simulation::notification::xml_map::type_short_name] \