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