Index: openacs-4/packages/simulation/www/citybuild/map-xml.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/citybuild/map-xml.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simulation/www/citybuild/map-xml.tcl	13 Nov 2003 14:55:26 -0000	1.1
+++ openacs-4/packages/simulation/www/citybuild/map-xml.tcl	2 Dec 2003 17:24:32 -0000	1.2
@@ -4,4 +4,8 @@
   @cvs-id $Id$
 }
 
+set package_id [ad_conn package_id]
+
+permission::require_permission -object_id $package_id -privilege sim_set_map_p
+
 ns_return 200 text/plain [simulation::object::xml::get_doc]