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.35 -r1.36 --- openacs-4/packages/simulation/lib/sim-template-tasks.tcl 23 Jan 2004 15:01:27 -0000 1.35 +++ openacs-4/packages/simulation/lib/sim-template-tasks.tcl 23 Jan 2004 15:52:58 -0000 1.36 @@ -43,6 +43,14 @@ set list_actions [list] } +set show_states_p 1 +if { ![empty_string_p $parent_action_id] } { + simulation::action::get -action_id $parent_action_id -array parent_task_array + if { [lsearch -exact { parallel dynamic } $parent_task_array(trigger_type)] != -1 } { + set show_states_p 0 + } +} + set elements [list] lappend elements edit { hide_p {[ad_decode $display_mode edit 0 1]} @@ -97,54 +105,59 @@ } } -lappend elements state_spacer { - label "
Enabled in States:" - sub_class narrow - display_template " " - html { style "border-left: 2px dotted #A0BDEB;" } -} +if { !$show_states_p } { + set states [list] +} else { + lappend elements state_spacer { + label "
Enabled in States:" + sub_class narrow + display_template " " + html { style "border-left: 2px dotted #A0BDEB;" } + } -set states [list] + set states [list] -db_foreach select_states { - select s.state_id, - s.pretty_name, - s.short_name - from workflow_fsm_states s - where workflow_id = :workflow_id - order by s.sort_order -} { - set "label_state_$state_id" "$pretty_name" - lappend elements state_$state_id \ - [list label "\"Edit\"\"Delete\"
\${label_state_$state_id}" \ - html { align center } \ - display_template " - - - - - - - "] + db_foreach select_states { + select s.state_id, + s.pretty_name, + s.short_name + from workflow_fsm_states s + where workflow_id = :workflow_id + and ((:parent_action_id is null and s.parent_action_id is null) or (s.parent_action_id = :parent_action_id)) + order by s.sort_order + } { + set "label_state_$state_id" "$pretty_name" + lappend elements state_$state_id \ + [list label "\"Edit\"\"Delete\"
\${label_state_$state_id}" \ + html { align center } \ + display_template " + + + + + + + "] - lappend states $state_id -} if_no_rows { - lappend elements state_spacer3 { - label "
None. Template will not work until you add states." - sub_class narrow - display_template " " + lappend states $state_id + } if_no_rows { + lappend elements state_spacer3 { + label "
None. Template will not work until you add states." + sub_class narrow + display_template " " + } } -} -lappend elements new_state_pretty { - label "
Next state" - html { style "border-left: 2px dotted #A0BDEB;" } + lappend elements new_state_pretty { + label "
Next state" + html { style "border-left: 2px dotted #A0BDEB;" } + } } template::list::create \ -name tasks \ -multirow tasks \ - -no_data "No tasks in this Simulation Template" \ + -no_data "No [ad_decode $parent_action_id "" "tasks in this Simulation Template" "subtasks for this task"]" \ -sub_class narrow \ -actions $list_actions \ -elements $elements @@ -207,8 +220,8 @@ order by wa.sort_order " { incr counter - set edit_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/task-edit" { action_id }] - set view_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/task-edit" { action_id }] + set edit_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/task-edit" { action_id {return_url [ad_return_url]} }] + set view_url [export_vars -base "[apm_package_url_from_id $package_id]simbuild/task-edit" { action_id {return_url [ad_return_url]}}] set delete_url \ [export_vars -base "[apm_package_url_from_id $package_id]simbuild/task-delete" { action_id {return_url [ad_return_url]} }]