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.8 -r1.9
--- openacs-4/packages/simulation/www/simplay/control-bar.tcl	5 Jan 2004 12:33:41 -0000	1.8
+++ openacs-4/packages/simulation/www/simplay/control-bar.tcl	7 Jan 2004 14:46:04 -0000	1.9
@@ -13,7 +13,9 @@
     # TODO: constrain queries based on case_id, which (another TODO) should be passed in
 }
 
+set case_home_url [export_vars -base "case" { case_id }]
 
+
 set message_count [db_string message_count_sql "
     select count(*) 
       from sim_messages sm,
@@ -23,6 +25,7 @@
        and wcrmp.party_id = pamm.party_id
        and wcrmp.role_id = sm.to_role_id
        and wcrmp.case_id = sm.case_id
+     [ad_decode $case_id "" "" "and wcrmp.case_id = :case_id"]
 "]
 set messages_url [export_vars -base ${section_uri}messages { case_id }]
 
@@ -48,6 +51,11 @@
 
 set tasks_url [export_vars -base ${section_uri}tasks { case_id }]
 
+
+
+set portfolio_url [export_vars -base ${section_uri}portfolio { case_id }]
+
+
 multirow create roles role_id short_name pretty_name
 
 foreach role_id [workflow::case::get_user_roles -case_id $case_id] {