Index: openacs-4/contrib/packages/simulation/www/simplay/control-bar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/control-bar.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/contrib/packages/simulation/www/simplay/control-bar.tcl	26 Jan 2004 15:23:38 -0000	1.14
+++ openacs-4/contrib/packages/simulation/www/simplay/control-bar.tcl	11 Mar 2004 12:13:40 -0000	1.15
@@ -15,6 +15,11 @@
 
 set workflow_id [simulation::case::get_element -case_id $case_id -element workflow_id]    
 
+set show_contacts_p [db_string getflag {
+    select show_contacts_p
+      from sim_simulations
+     where simulation_id=:workflow_id}]
+
 set case_home_url [export_vars -base "case" { case_id role_id }]
 
 set message_count [db_string message_count_sql {