Index: openacs-4/packages/simulation/lib/sim-template-tasks.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/lib/sim-template-tasks.tcl,v diff -u -r1.33 -r1.34 --- openacs-4/packages/simulation/lib/sim-template-tasks.tcl 23 Jan 2004 13:18:43 -0000 1.33 +++ openacs-4/packages/simulation/lib/sim-template-tasks.tcl 23 Jan 2004 14:31:56 -0000 1.34 @@ -77,6 +77,13 @@ link_url_col assigned_role_edit_url } +lappend elements add_child_action { + label {} + display_template {} + link_url_col add_child_action_url + link_html { title "Add child task" } +} + lappend elements trigger_type { label "
Type" display_eval {[string totitle $trigger_type]} @@ -149,7 +156,7 @@ #------------------------------------------------------------- set extend [list] -lappend extend edit_url view_url delete_url assigned_role_edit_url up_url down_url +lappend extend edit_url view_url delete_url assigned_role_edit_url up_url down_url add_child_action_url foreach state_id $states { lappend extend state_$state_id @@ -232,6 +239,12 @@ } set down_url [export_vars -base "[ad_conn package_url]simbuild/template-object-reorder" { { type action } action_id { direction down } { return_url [ad_return_url] } }] + switch $trigger_type { + workflow - parallel - dynamic { + set add_child_action_url [export_vars -base task-edit { workflow_id { parent_action_id $action_id } }] + } + } + lappend actions $action_id }