Index: openacs-4/contrib/packages/simulation/lib/sim-template-states.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/lib/Attic/sim-template-states.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/contrib/packages/simulation/lib/sim-template-states.tcl 12 Jan 2004 13:43:14 -0000 1.3 +++ openacs-4/contrib/packages/simulation/lib/sim-template-states.tcl 23 Jan 2004 15:52:58 -0000 1.4 @@ -6,6 +6,9 @@ @cvs-id $Id$ } { workflow_id {} + parent_action_id { + default_value {} + } } set package_id [ad_conn package_id] @@ -14,12 +17,12 @@ # states list #------------------------------------------------------------- -set actions [list "Add a State" [export_vars -base state-edit { workflow_id}] {}] +set actions [list "Add a State" [export_vars -base state-edit { workflow_id parent_action_id {return_url [ad_return_url] } }] {}] template::list::create \ -name states \ -multirow states \ - -no_data "No states in this Simulation Template" \ + -no_data "No states in this [ad_decode $parent_action_id "" "Simulation Template" "sub-workflow"]" \ -actions $actions \ -elements { edit { @@ -69,10 +72,11 @@ ws.sort_order from workflow_fsm_states ws where ws.workflow_id = :workflow_id + and ws.parent_action_id [ad_decode $parent_action_id "" "is null" "= :parent_action_id"] order by ws.sort_order " { incr counter - set edit_url [export_vars -base "[ad_conn package_url]simbuild/state-edit" { state_id }] + set edit_url [export_vars -base "[ad_conn package_url]simbuild/state-edit" { state_id { return_url [ad_return_url] } }] set delete_url [export_vars -base "[ad_conn package_url]simbuild/state-delete" { state_id { return_url [ad_return_url] } }] if { $counter > 1 } { set up_url [export_vars -base "[ad_conn package_url]simbuild/template-object-reorder" { { type state } state_id { direction up } { return_url [ad_return_url] } }]