Index: openacs-4/contrib/packages/simulation/www/siminst/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/index.tcl,v diff -u -r1.30 -r1.31 --- openacs-4/contrib/packages/simulation/www/siminst/index.tcl 13 Jan 2004 12:45:09 -0000 1.30 +++ openacs-4/contrib/packages/simulation/www/siminst/index.tcl 14 Jan 2004 15:10:54 -0000 1.31 @@ -93,7 +93,6 @@ " { set description [ad_html_text_convert -from $description_mime_type -maxlen 200 -- $description] - # TODO: getting the states here will not scale well (executes a handful queries for every template listed) set state [simulation::template::get_inst_state -workflow_id $workflow_id] if { [simulation::template::ready_for_casting_p -state $state] } { Index: openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/map-characters.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl 12 Jan 2004 11:35:33 -0000 1.13 +++ openacs-4/contrib/packages/simulation/www/siminst/map-characters.tcl 14 Jan 2004 15:10:54 -0000 1.14 @@ -57,6 +57,7 @@ simulation::role::edit -role_id $role_id -array row } } - + + simulation::template::flush_inst_state -workflow_id $workflow_id wizard forward } Index: openacs-4/contrib/packages/simulation/www/siminst/map-tasks.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/map-tasks.tcl,v diff -u -r1.11 -r1.12 --- openacs-4/contrib/packages/simulation/www/siminst/map-tasks.tcl 13 Jan 2004 12:45:09 -0000 1.11 +++ openacs-4/contrib/packages/simulation/www/siminst/map-tasks.tcl 14 Jan 2004 15:10:54 -0000 1.12 @@ -141,5 +141,6 @@ } } } -after_submit { + simulation::template::flush_inst_state -workflow_id $workflow_id wizard forward } Index: openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/simulation-casting-3.tcl,v diff -u -r1.20 -r1.21 --- openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-3.tcl 13 Jan 2004 14:59:21 -0000 1.20 +++ openacs-4/contrib/packages/simulation/www/siminst/simulation-casting-3.tcl 14 Jan 2004 15:10:54 -0000 1.21 @@ -169,6 +169,7 @@ simulation::template::enroll_and_invite_users -workflow_id $workflow_id + simulation::template::flush_inst_state -workflow_id $workflow_id wizard forward } 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.10 -r1.11 --- openacs-4/contrib/packages/simulation/www/siminst/simulation-edit.tcl 13 Jan 2004 10:58:09 -0000 1.10 +++ openacs-4/contrib/packages/simulation/www/siminst/simulation-edit.tcl 14 Jan 2004 15:10:54 -0000 1.11 @@ -161,6 +161,7 @@ -workflow_id $workflow_id \ -array row + simulation::template::flush_inst_state -workflow_id $workflow_id wizard forward } @@ -174,4 +175,3 @@ } wizard submit simulation -buttons { back next } - Index: openacs-4/contrib/packages/simulation/www/siminst/simulation-participants.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/www/siminst/Attic/simulation-participants.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/contrib/packages/simulation/www/siminst/simulation-participants.tcl 12 Jan 2004 15:44:46 -0000 1.7 +++ openacs-4/contrib/packages/simulation/www/siminst/simulation-participants.tcl 14 Jan 2004 15:10:54 -0000 1.8 @@ -127,5 +127,6 @@ } } -after_submit { + simulation::template::flush_inst_state -workflow_id $workflow_id wizard forward } Index: openacs-4/packages/simulation/www/siminst/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/index.tcl,v diff -u -r1.30 -r1.31 --- openacs-4/packages/simulation/www/siminst/index.tcl 13 Jan 2004 12:45:09 -0000 1.30 +++ openacs-4/packages/simulation/www/siminst/index.tcl 14 Jan 2004 15:10:54 -0000 1.31 @@ -93,7 +93,6 @@ " { set description [ad_html_text_convert -from $description_mime_type -maxlen 200 -- $description] - # TODO: getting the states here will not scale well (executes a handful queries for every template listed) set state [simulation::template::get_inst_state -workflow_id $workflow_id] if { [simulation::template::ready_for_casting_p -state $state] } { Index: openacs-4/packages/simulation/www/siminst/map-characters.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/map-characters.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/packages/simulation/www/siminst/map-characters.tcl 12 Jan 2004 11:35:33 -0000 1.13 +++ openacs-4/packages/simulation/www/siminst/map-characters.tcl 14 Jan 2004 15:10:54 -0000 1.14 @@ -57,6 +57,7 @@ simulation::role::edit -role_id $role_id -array row } } - + + simulation::template::flush_inst_state -workflow_id $workflow_id wizard forward } Index: openacs-4/packages/simulation/www/siminst/map-tasks.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/map-tasks.tcl,v diff -u -r1.11 -r1.12 --- openacs-4/packages/simulation/www/siminst/map-tasks.tcl 13 Jan 2004 12:45:09 -0000 1.11 +++ openacs-4/packages/simulation/www/siminst/map-tasks.tcl 14 Jan 2004 15:10:54 -0000 1.12 @@ -141,5 +141,6 @@ } } } -after_submit { + simulation::template::flush_inst_state -workflow_id $workflow_id wizard forward } Index: openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl,v diff -u -r1.20 -r1.21 --- openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl 13 Jan 2004 14:59:21 -0000 1.20 +++ openacs-4/packages/simulation/www/siminst/simulation-casting-3.tcl 14 Jan 2004 15:10:54 -0000 1.21 @@ -169,6 +169,7 @@ simulation::template::enroll_and_invite_users -workflow_id $workflow_id + simulation::template::flush_inst_state -workflow_id $workflow_id wizard forward } 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.10 -r1.11 --- openacs-4/packages/simulation/www/siminst/simulation-edit.tcl 13 Jan 2004 10:58:09 -0000 1.10 +++ openacs-4/packages/simulation/www/siminst/simulation-edit.tcl 14 Jan 2004 15:10:54 -0000 1.11 @@ -161,6 +161,7 @@ -workflow_id $workflow_id \ -array row + simulation::template::flush_inst_state -workflow_id $workflow_id wizard forward } @@ -174,4 +175,3 @@ } wizard submit simulation -buttons { back next } - Index: openacs-4/packages/simulation/www/siminst/simulation-participants.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/www/siminst/simulation-participants.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/simulation/www/siminst/simulation-participants.tcl 12 Jan 2004 15:44:46 -0000 1.7 +++ openacs-4/packages/simulation/www/siminst/simulation-participants.tcl 14 Jan 2004 15:10:54 -0000 1.8 @@ -127,5 +127,6 @@ } } -after_submit { + simulation::template::flush_inst_state -workflow_id $workflow_id wizard forward }