Index: openacs-4/packages/workflow/tcl/action-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/action-procs.tcl,v diff -u -N -r1.8 -r1.9 --- openacs-4/packages/workflow/tcl/action-procs.tcl 28 Aug 2003 09:41:59 -0000 1.8 +++ openacs-4/packages/workflow/tcl/action-procs.tcl 28 Oct 2003 13:39:03 -0000 1.9 @@ -304,11 +304,11 @@ -##### +###################################################################### # # workflow::action::fsm # -##### +###################################################################### ad_proc -public workflow::action::fsm::new { {-workflow_id:required} @@ -327,11 +327,13 @@ {-always_enabled_p f} {-initial_action_p f} } { - Add an action to a certain FSM (Finite State Machine) workflow. This procedure - invokes the generic workflow::action::new procedures and does additional inserts - for FSM specific information. See the parameter - documentation for the proc workflow::action::new. + Add an action to a certain FSM (Finite State Machine) workflow. + This procedure invokes the generic workflow::action::new procedures + and does additional inserts for FSM specific information. See the + parameter documentation for the proc workflow::action::new. + @return the new action_id. + @see workflow::action::new @author Peter Marklund @@ -385,6 +387,7 @@ } workflow::action::flush_cache -workflow_id $workflow_id + return $action_id } ad_proc -public workflow::action::fsm::get_new_state { Index: openacs-4/packages/workflow/tcl/workflow-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/workflow-procs.tcl,v diff -u -N -r1.9 -r1.10 --- openacs-4/packages/workflow/tcl/workflow-procs.tcl 1 Sep 2003 13:43:51 -0000 1.9 +++ openacs-4/packages/workflow/tcl/workflow-procs.tcl 28 Oct 2003 13:39:03 -0000 1.10 @@ -43,6 +43,7 @@ acs_object_types table. The parameter is optional and defaults to acs_object. @param callbacks List of names of service contract implementations of callbacks for the workflow in impl_owner_name.impl_name format. + @return New workflow_id. @author Peter Marklund } {