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.2 -r1.3
--- openacs-4/packages/simulation/www/simplay/index.tcl	18 Nov 2003 09:44:32 -0000	1.2
+++ openacs-4/packages/simulation/www/simplay/index.tcl	18 Dec 2003 09:58:28 -0000	1.3
@@ -1,7 +1,12 @@
 ad_page_contract {
     Simplay index page.
+} {
+    case_id:integer,optional
 }
 
 set title "SimPlay"
 set context [list $title]
 set package_id [ad_conn package_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]