Index: openacs-4/packages/simulation/www/object-xml.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/object-xml.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/simulation/www/object-xml.tcl	7 Nov 2003 16:08:45 -0000	1.1
+++ openacs-4/packages/simulation/www/object-xml.tcl	2 Dec 2003 17:24:32 -0000	1.2
@@ -7,6 +7,8 @@
     item_id:integer
 }
 
+permission::require_permission -object_id $item_id -privilege sim_set_map_p
+
 set flash_xml [simulation::object::generate_xml -item_id $item_id]
 
 ns_return 200 text/plain $flash_xml