Index: openacs-4/packages/simulation/www/citybuild/generate-xml.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/citybuild/generate-xml.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simulation/www/citybuild/generate-xml.tcl	13 Nov 2003 14:55:26 -0000	1.1
+++ openacs-4/packages/simulation/www/citybuild/generate-xml.tcl	2 Dec 2003 17:24:32 -0000	1.2
@@ -6,7 +6,10 @@
 
 set page_title "Generation of Map XML file"
 set context [list [list "." "CityBuild"] $page_title]
+set package_id [ad_conn package_id]
 
+permission::require_permission -object_id $package_id -privilege sim_set_map_p
+
 array set result [simulation::object::xml::generate_file -package_id [ad_conn package_id]]
 
 set error_text [join $result(errors) "\n"]