Index: openacs-4/contrib/packages/simulation/lib/sim-template-tasks.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/lib/Attic/sim-template-tasks.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/contrib/packages/simulation/lib/sim-template-tasks.tcl 8 Jan 2004 10:50:34 -0000 1.21
+++ openacs-4/contrib/packages/simulation/lib/sim-template-tasks.tcl 8 Jan 2004 10:53:03 -0000 1.22
@@ -117,6 +117,10 @@
}
}
+lappend elements new_state_pretty {
+ label "
New state"
+ html { style "border-left: 2px dotted #A0BDEB;" }
+}
template::list::create \
-name tasks \
@@ -135,7 +139,7 @@
-element initial_action_id]
set extend [list]
-lappend extend edit_url view_url delete_url initial_p set_initial_url assigned_role_edit_url recipient_role_edit_url
+lappend extend edit_url view_url delete_url initial_p set_initial_url assigned_role_edit_url recipient_role_edit_url
foreach state_id $states {
lappend extend state_$state_id
@@ -182,7 +186,10 @@
where role_id = st.recipient) as recipient_name,
wa.sort_order,
wa.always_enabled_p,
- wfa.new_state
+ wfa.new_state,
+ (select pretty_name
+ from workflow_fsm_states
+ where state_id = wfa.new_state) as new_state_pretty
from workflow_actions wa left outer join
sim_tasks st on (st.task_id = wa.action_id),
workflow_fsm_actions wfa
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.21 -r1.22
--- openacs-4/packages/simulation/lib/sim-template-tasks.tcl 8 Jan 2004 10:50:34 -0000 1.21
+++ openacs-4/packages/simulation/lib/sim-template-tasks.tcl 8 Jan 2004 10:53:03 -0000 1.22
@@ -117,6 +117,10 @@
}
}
+lappend elements new_state_pretty {
+ label "
New state"
+ html { style "border-left: 2px dotted #A0BDEB;" }
+}
template::list::create \
-name tasks \
@@ -135,7 +139,7 @@
-element initial_action_id]
set extend [list]
-lappend extend edit_url view_url delete_url initial_p set_initial_url assigned_role_edit_url recipient_role_edit_url
+lappend extend edit_url view_url delete_url initial_p set_initial_url assigned_role_edit_url recipient_role_edit_url
foreach state_id $states {
lappend extend state_$state_id
@@ -182,7 +186,10 @@
where role_id = st.recipient) as recipient_name,
wa.sort_order,
wa.always_enabled_p,
- wfa.new_state
+ wfa.new_state,
+ (select pretty_name
+ from workflow_fsm_states
+ where state_id = wfa.new_state) as new_state_pretty
from workflow_actions wa left outer join
sim_tasks st on (st.task_id = wa.action_id),
workflow_fsm_actions wfa