Index: openacs-4/contrib/packages/simulation/lib/messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/lib/Attic/messages.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/contrib/packages/simulation/lib/messages.tcl	6 Jan 2004 09:51:47 -0000	1.10
+++ openacs-4/contrib/packages/simulation/lib/messages.tcl	6 Jan 2004 13:05:47 -0000	1.11
@@ -13,7 +13,11 @@
     }
 }
 
+# TODO: finish.  if case id is nil, check that adminplayer_p is true.  if not, fail.
+# if admin is true, ...
+
 set package_id [ad_conn package_id]
+set adminplayer_p [permission::permission_p -object_id $package_id -privilege sim_adminplayer]
 
 if { [exists_and_not_null case_id] } {
     set user_roles [workflow::case::get_user_roles -case_id $case_id]