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.3 -r1.4
--- openacs-4/packages/simulation/www/simplay/index.tcl	18 Dec 2003 09:58:28 -0000	1.3
+++ openacs-4/packages/simulation/www/simplay/index.tcl	18 Dec 2003 14:07:02 -0000	1.4
@@ -1,11 +1,12 @@
 ad_page_contract {
     Simplay index page.
 } {
-    case_id:integer,optional
+    {case_id:integer ""}
 }
 
 set title "SimPlay"
 set context [list $title]
+set user_id [ad_conn user_id]
 set package_id [ad_conn package_id]
 set section_uri [apm_package_url_from_id $package_id]simplay/