Index: openacs-4/packages/simulation/www/simplay/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/index.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/simulation/www/simplay/index.tcl	23 Jan 2004 15:14:01 -0000	1.9
+++ openacs-4/packages/simulation/www/simplay/index.tcl	27 Jan 2004 15:30:07 -0000	1.10
@@ -21,7 +21,9 @@
        and wc.case_id = wcrpm.case_id
 }]
 
-if { [llength $case_list] == 1 } {
+if { !$adminplayer_p && [llength $case_list] == 1 } {
     set case_id [lindex [lindex $case_list 0] 0]
     set role_id [lindex [lindex $case_list 0] 1]
+    ad_returnredirect [export_vars -base case { case_id role_id }]
+    ad_script_abort
 }