Index: openacs-4/packages/simulation/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/index.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/simulation/www/index.tcl	18 Nov 2003 15:59:12 -0000	1.10
+++ openacs-4/packages/simulation/www/index.tcl	2 Dec 2003 13:46:53 -0000	1.11
@@ -11,6 +11,9 @@
 set context ""
 set user_id [auth::get_user_id]
 
+set citybuild_p [permission::permission_p -object_id $package_id -privilege sim_object_create]
+set simbuild_p [permission::permission_p -object_id $package_id -privilege sim_inst]
+
 ######################################################################
 #
 # active_cases