Index: openacs-4/packages/simulation/lib/messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/messages.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/simulation/lib/messages.tcl	5 Jan 2004 15:29:50 -0000	1.6
+++ openacs-4/packages/simulation/lib/messages.tcl	5 Jan 2004 15:35:40 -0000	1.7
@@ -15,12 +15,15 @@
 
 set package_id [ad_conn package_id]
 
+set user_roles [workflow::case::get_user_roles -case_id $case_id]
+
 set elements {
     from {
         label "From"
     }
     to {
         label "To"
+        hide_p {[ad_decode [llength $user_roles] 1 1 0]}
     }
     subject {
         link_url_col