Index: openacs-4/packages/simulation/tcl/template-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/template-procs.tcl,v diff -u -r1.31 -r1.32 --- openacs-4/packages/simulation/tcl/template-procs.tcl 6 Jan 2004 16:26:37 -0000 1.31 +++ openacs-4/packages/simulation/tcl/template-procs.tcl 6 Jan 2004 18:36:27 -0000 1.32 @@ -755,7 +755,9 @@
  • none
  • roles_complete
  • tasks_complete -
  • casting_begun +
  • settings_complete +
  • enrollment_complete +
  • participants_complete } { simulation::template::get -workflow_id $workflow_id -array sim_template @@ -775,7 +777,7 @@ and character_id is null }] if { $role_empty_count == 0 } { - set state "roles" + set state "roles_complete" # 2. Tasks set prop_empty_count [db_string prop_empty_count { @@ -787,13 +789,26 @@ }] if { $prop_empty_count == 0 } { - set state "tasks" + set state "tasks_complete" + + if { ![empty_string_p $sim_template(case_start)] && ![empty_string_p $sim_template(send_start_note_date)] } { + set state "settings_complete" + + if { ![empty_string_p $sim_template(enroll_type)] && + (![string equal $sim_template(enroll_type) "open"] || + (![empty_string_p $sim_template(enroll_start)] && ![empty_string_p $sim_template(enroll_end)])) } { + set state "enrollment_complete" + + set num_parties [db_string num_parties { select count(*) from sim_party_sim_map where simulation_id = :workflow_id }] + + if { $num_parties > 0 } { + set state "participants_complete" + } + } + } } } } - casting_sim { - set state "casting_begun" - } } return $state