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.4 -r1.5
--- openacs-4/packages/simulation/www/simplay/control-bar.tcl	18 Dec 2003 09:58:28 -0000	1.4
+++ openacs-4/packages/simulation/www/simplay/control-bar.tcl	19 Dec 2003 14:00:39 -0000	1.5
@@ -5,6 +5,10 @@
 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 { ![info exists case_id] } {
+    set case_id {}
+}
+
 if { !$adminplayer_p } {
     # TODO: constrain queries based on case_id, which (another TODO) should be passed in
 }
@@ -38,6 +42,7 @@
        and wcrmp.case_id = wcea.case_id
        and wcrmp.role_id = wa.assigned_role
        and wa.action_id = wcea.action_id
+    [ad_decode $case_id "" "" "and wcea.case_id = :case_id"]
 "]
 
-set tasks_url ${section_uri}tasks
\ No newline at end of file
+set tasks_url [export_vars -base ${section_uri}tasks { case_id }]