Index: openacs-4/contrib/packages/simulation/tcl/sim-action-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/Attic/sim-action-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/contrib/packages/simulation/tcl/sim-action-procs.tcl	26 Jan 2004 12:34:46 -0000	1.6
+++ openacs-4/contrib/packages/simulation/tcl/sim-action-procs.tcl	27 Jan 2004 10:33:16 -0000	1.7
@@ -15,6 +15,11 @@
     {-array {}}
     {-internal:boolean}
     {-no_complain:boolean}
+    {-handlers { 
+        roles "simulation::role" 
+        actions "simulation::action"
+        states "workflow::state::fsm"
+    }}
 } {
     Edit an action. 
 
@@ -135,6 +140,7 @@
         # Base row
         set action_id [workflow::action::fsm::edit \
                            -internal \
+                           -handlers $handlers \
                            -operation $operation \
                            -action_id $action_id \
                            -workflow_id $workflow_id \
@@ -244,6 +250,7 @@
 ad_proc -private simulation::action::generate_spec {
     {-action_id {}}
     {-one_id {}}
+    {-handlers {}}
 } {
     Generate the spec for an individual simulation task definition.
 
@@ -267,7 +274,10 @@
     }
 
     # Get parent spec
-    array set row [workflow::action::fsm::generate_spec -action_id $action_id]
+    if { [empty_string_p $handlers] } {
+        ds_comment "$handlers - \n[ad_get_tcl_call_stack]"
+    }
+    array set row [workflow::action::fsm::generate_spec -action_id $action_id -handlers $handlers]
 
     # Get local spec, remove unwanted entries
     get -action_id $action_id -array local_row -local_only