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 @@

+

States

+ + +

Your Options

- - 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 @@

+

States

+ + +

Your Options

- - 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 +}