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.16 -r1.16.2.1
--- openacs-4/packages/simulation/www/simplay/control-bar.tcl	11 Mar 2004 12:44:53 -0000	1.16
+++ openacs-4/packages/simulation/www/simplay/control-bar.tcl	17 Mar 2004 09:15:09 -0000	1.16.2.1
@@ -24,12 +24,13 @@
 
 set case_home_url [export_vars -base "case" { case_id role_id }]
 
-set message_count [db_string message_count_sql {
+set message_count [db_string message_count_sql "
     select count(*) 
-      from sim_messages sm
-     where sm.to_role_id = :role_id
+      from sim_messagesx sm
+     where (sm.to_role_id = :role_id or sm.from_role_id = :role_id)
        and sm.case_id = :case_id
-}]
+       and [simulation::message::exclude_task_messages_sql]
+"]
 set messages_url [export_vars -base ${section_uri}messages { case_id role_id }]
 
 set task_count [db_string task_count_sql {