Index: openacs-4/contrib/packages/simulation/simulation.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/Attic/simulation.info,v diff -u -r1.12.2.1 -r1.12.2.2 --- openacs-4/contrib/packages/simulation/simulation.info 16 Mar 2004 16:16:17 -0000 1.12.2.1 +++ openacs-4/contrib/packages/simulation/simulation.info 22 Mar 2004 15:49:02 -0000 1.12.2.2 @@ -8,7 +8,7 @@ f simulation - + Collaboraid ApS Workflow-based task simulator. Build scenario templates in which various roles must complete tasks such as @@ -18,7 +18,7 @@ www.rechtenonline.nl. 2004-01-30 - + Index: openacs-4/contrib/packages/simulation/sql/postgresql/simulation-tables-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/sql/postgresql/Attic/simulation-tables-create.sql,v diff -u -r1.26 -r1.26.2.1 --- openacs-4/contrib/packages/simulation/sql/postgresql/simulation-tables-create.sql 11 Mar 2004 12:13:41 -0000 1.26 +++ openacs-4/contrib/packages/simulation/sql/postgresql/simulation-tables-create.sql 22 Mar 2004 15:49:02 -0000 1.26.2.1 @@ -28,6 +28,11 @@ constraint sim_show_contacts_p_ck check(show_contacts_p in ('t','f')) constraint sim_show_contacts_p_nn + not null, + show_states_p boolean default 't' + constraint sim_show_states_p_ck + check(show_states_p in ('t','f')) + constraint sim_show_states_p_nn not null ); Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/contrib/packages/simulation/sql/postgresql/upgrade/upgrade-1.0.0b2-1.0.0b3.sql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/contrib/packages/simulation/www/siminst/simulation-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/simulation-edit.tcl,v diff -u -r1.15 -r1.15.2.1 --- openacs-4/contrib/packages/simulation/www/siminst/simulation-edit.tcl 29 Jan 2004 13:29:35 -0000 1.15 +++ openacs-4/contrib/packages/simulation/www/siminst/simulation-edit.tcl 22 Mar 2004 15:49:03 -0000 1.15.2.1 @@ -39,7 +39,10 @@ {html {cols 60 rows 8}} {help_text "This description is visible to users during enrollment."} } - + {show_states_p:boolean(radio),optional + {label "Should we show states?
(i.e. Started, Open, Written...)"} + {options {{"Show states" t} {"Don't show states" f}}} + } } -on_request { foreach elm { @@ -90,6 +93,11 @@ set enroll_end [clock format [expr [clock seconds] + 2*$one_week + $default_duration] -format "%Y-%m-%d"] } + set show_states_p [db_string gettheflag_states { + select show_states_p + from sim_simulations + where simulation_id=:workflow_id}] + } -on_submit { # Date validation @@ -163,6 +171,12 @@ -workflow_id $workflow_id \ -array row + db_dml show_states_p { + update sim_simulations + set show_states_p = :show_states_p + where simulation_id = :workflow_id + } + simulation::template::flush_inst_state -workflow_id $workflow_id wizard forward } 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.17.2.1 -r1.17.2.2 --- openacs-4/contrib/packages/simulation/www/simplay/control-bar.adp 18 Mar 2004 09:48:05 -0000 1.17.2.1 +++ openacs-4/contrib/packages/simulation/www/simplay/control-bar.adp 22 Mar 2004 15:49:03 -0000 1.17.2.2 @@ -6,13 +6,15 @@

+

#simulation.States#

  • @states.pretty_name@@states.pretty_name@
    •
+

#simulation.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.16.2.2 -r1.16.2.3 --- openacs-4/contrib/packages/simulation/www/simplay/control-bar.tcl 19 Mar 2004 10:52:44 -0000 1.16.2.2 +++ openacs-4/contrib/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 }] Index: openacs-4/packages/simulation/simulation.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/simulation.info,v diff -u -r1.12.2.1 -r1.12.2.2 --- openacs-4/packages/simulation/simulation.info 16 Mar 2004 16:16:17 -0000 1.12.2.1 +++ openacs-4/packages/simulation/simulation.info 22 Mar 2004 15:49:02 -0000 1.12.2.2 @@ -8,7 +8,7 @@ f simulation - + Collaboraid ApS Workflow-based task simulator. Build scenario templates in which various roles must complete tasks such as @@ -18,7 +18,7 @@ www.rechtenonline.nl. 2004-01-30 - + Index: openacs-4/packages/simulation/sql/postgresql/simulation-tables-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/sql/postgresql/simulation-tables-create.sql,v diff -u -r1.26 -r1.26.2.1 --- openacs-4/packages/simulation/sql/postgresql/simulation-tables-create.sql 11 Mar 2004 12:13:41 -0000 1.26 +++ openacs-4/packages/simulation/sql/postgresql/simulation-tables-create.sql 22 Mar 2004 15:49:02 -0000 1.26.2.1 @@ -28,6 +28,11 @@ constraint sim_show_contacts_p_ck check(show_contacts_p in ('t','f')) constraint sim_show_contacts_p_nn + not null, + show_states_p boolean default 't' + constraint sim_show_states_p_ck + check(show_states_p in ('t','f')) + constraint sim_show_states_p_nn not null ); Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/simulation/sql/postgresql/upgrade/upgrade-1.0.0b2-1.0.0b3.sql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/simulation/www/siminst/simulation-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/simulation-edit.tcl,v diff -u -r1.15 -r1.15.2.1 --- openacs-4/packages/simulation/www/siminst/simulation-edit.tcl 29 Jan 2004 13:29:35 -0000 1.15 +++ openacs-4/packages/simulation/www/siminst/simulation-edit.tcl 22 Mar 2004 15:49:03 -0000 1.15.2.1 @@ -39,7 +39,10 @@ {html {cols 60 rows 8}} {help_text "This description is visible to users during enrollment."} } - + {show_states_p:boolean(radio),optional + {label "Should we show states?
    (i.e. Started, Open, Written...)"} + {options {{"Show states" t} {"Don't show states" f}}} + } } -on_request { foreach elm { @@ -90,6 +93,11 @@ set enroll_end [clock format [expr [clock seconds] + 2*$one_week + $default_duration] -format "%Y-%m-%d"] } + set show_states_p [db_string gettheflag_states { + select show_states_p + from sim_simulations + where simulation_id=:workflow_id}] + } -on_submit { # Date validation @@ -163,6 +171,12 @@ -workflow_id $workflow_id \ -array row + db_dml show_states_p { + update sim_simulations + set show_states_p = :show_states_p + where simulation_id = :workflow_id + } + simulation::template::flush_inst_state -workflow_id $workflow_id wizard forward } 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.17.2.1 -r1.17.2.2 --- openacs-4/packages/simulation/www/simplay/control-bar.adp 18 Mar 2004 09:48:05 -0000 1.17.2.1 +++ openacs-4/packages/simulation/www/simplay/control-bar.adp 22 Mar 2004 15:49:03 -0000 1.17.2.2 @@ -6,13 +6,15 @@

    +

    #simulation.States#

    • @states.pretty_name@@states.pretty_name@
      •
    +

    #simulation.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.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 }]