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.2.2 -r1.16.2.3
--- openacs-4/packages/simulation/www/simplay/control-bar.tcl	19 Mar 2004 10:52:44 -0000	1.16.2.2
+++ openacs-4/packages/simulation/www/simplay/control-bar.tcl	22 Mar 2004 15:49:03 -0000	1.16.2.3
@@ -17,10 +17,10 @@
 
 set workflow_id $case(workflow_id)
 
-set show_contacts_p [db_string getflag {
-    select show_contacts_p
+db_1row getflags {
+    select show_contacts_p, show_states_p
       from sim_simulations
-     where simulation_id=:workflow_id}]
+     where simulation_id=:workflow_id}
 
 set case_home_url [export_vars -base "case" { case_id role_id }]