Index: openacs-4/packages/simulation/www/simplay/control-bar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/control-bar.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/simulation/www/simplay/control-bar.tcl	16 Dec 2003 14:16:30 -0000	1.3
+++ openacs-4/packages/simulation/www/simplay/control-bar.tcl	18 Dec 2003 09:58:28 -0000	1.4
@@ -3,7 +3,13 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 set section_uri [apm_package_url_from_id $package_id]simplay/
+set adminplayer_p [permission::permission_p -object_id $package_id -privilege sim_adminplayer]
 
+if { !$adminplayer_p } {
+    # TODO: constrain queries based on case_id, which (another TODO) should be passed in
+}
+
+
 set message_count [db_string message_count_sql "
     select count(*) 
       from sim_messages sm,