Index: openacs-4/contrib/packages/simulation/www/simplay/control-bar.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/simplay/Attic/control-bar.adp,v
diff -u -r1.16 -r1.17
--- openacs-4/contrib/packages/simulation/www/simplay/control-bar.adp	11 Mar 2004 12:13:40 -0000	1.16
+++ openacs-4/contrib/packages/simulation/www/simplay/control-bar.adp	11 Mar 2004 12:44:53 -0000	1.17
@@ -7,6 +7,14 @@
 
 <p>
 
+<h4>States</h4>
+
+<ul>
+  <multiple name="states">
+    <li><if @states.state_id@ eq @states.current_state@><b>@states.pretty_name@</b></if><else>@states.pretty_name@</else></li>
+  </multiple>
+</ul>
+
 <h4>Your Options</if></h4>
 <ul class="action-links">
   <li><a href="@case_home_url@">Case home</a>
@@ -24,5 +32,3 @@
   </multiple>
 </ul>
 </if>
-
-
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.15 -r1.16
--- openacs-4/contrib/packages/simulation/www/simplay/control-bar.tcl	11 Mar 2004 12:13:40 -0000	1.15
+++ openacs-4/contrib/packages/simulation/www/simplay/control-bar.tcl	11 Mar 2004 12:44:53 -0000	1.16
@@ -13,8 +13,10 @@
 set user_id [ad_conn user_id]
 set section_uri [apm_package_url_from_id $package_id]simplay/
 
-set workflow_id [simulation::case::get_element -case_id $case_id -element workflow_id]    
+simulation::case::get -case_id $case_id -array case
 
+set workflow_id $case(workflow_id)
+
 set show_contacts_p [db_string getflag {
     select show_contacts_p
       from sim_simulations
@@ -98,3 +100,14 @@
 }
 
 set notifications_url [export_vars -base notifications { case_id role_id }]
+
+db_multirow -unclobber states select_states {
+    select wfs.pretty_name,
+           wfs.state_id,
+           wcf.current_state
+    from workflow_case_fsm wcf,
+         workflow_fsm_states wfs
+    where wfs.workflow_id = :workflow_id
+      and wcf.case_id = :case_id
+    order by wfs.sort_order
+}
Index: openacs-4/packages/simulation/www/simplay/control-bar.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/simplay/control-bar.adp,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/simulation/www/simplay/control-bar.adp	11 Mar 2004 12:13:40 -0000	1.16
+++ openacs-4/packages/simulation/www/simplay/control-bar.adp	11 Mar 2004 12:44:53 -0000	1.17
@@ -7,6 +7,14 @@
 
 <p>
 
+<h4>States</h4>
+
+<ul>
+  <multiple name="states">
+    <li><if @states.state_id@ eq @states.current_state@><b>@states.pretty_name@</b></if><else>@states.pretty_name@</else></li>
+  </multiple>
+</ul>
+
 <h4>Your Options</if></h4>
 <ul class="action-links">
   <li><a href="@case_home_url@">Case home</a>
@@ -24,5 +32,3 @@
   </multiple>
 </ul>
 </if>
-
-
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.15 -r1.16
--- openacs-4/packages/simulation/www/simplay/control-bar.tcl	11 Mar 2004 12:13:40 -0000	1.15
+++ openacs-4/packages/simulation/www/simplay/control-bar.tcl	11 Mar 2004 12:44:53 -0000	1.16
@@ -13,8 +13,10 @@
 set user_id [ad_conn user_id]
 set section_uri [apm_package_url_from_id $package_id]simplay/
 
-set workflow_id [simulation::case::get_element -case_id $case_id -element workflow_id]    
+simulation::case::get -case_id $case_id -array case
 
+set workflow_id $case(workflow_id)
+
 set show_contacts_p [db_string getflag {
     select show_contacts_p
       from sim_simulations
@@ -98,3 +100,14 @@
 }
 
 set notifications_url [export_vars -base notifications { case_id role_id }]
+
+db_multirow -unclobber states select_states {
+    select wfs.pretty_name,
+           wfs.state_id,
+           wcf.current_state
+    from workflow_case_fsm wcf,
+         workflow_fsm_states wfs
+    where wfs.workflow_id = :workflow_id
+      and wcf.case_id = :case_id
+    order by wfs.sort_order
+}