Index: openacs-4/packages/workflow/tcl/fsm-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/Attic/fsm-procs.xql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/workflow/tcl/fsm-procs.xql 14 Jan 2003 15:09:16 -0000 1.2 +++ openacs-4/packages/workflow/tcl/fsm-procs.xql 20 Jan 2003 15:45:00 -0000 1.3 @@ -1,38 +1,32 @@ - + insert into workflow_fsm_states (state_id, workflow_id, sort_order, short_name, pretty_name) values (:state_id, :workflow_id, :sort_order, :short_name, :pretty_name) - + - select state_id + select workflow_id, + sort_order, + short_name, + pretty_name from workflow_fsm_states - where short_name = :short_name - and workflow_id = :workflow_id + where state_id = :state_id - + - insert into workflow_fsm_actions - (action_id, new_state) - values - (:action_id, :new_state_id) + select state_id + from workflow_fsm_states + where short_name = :short_name + and workflow_id = :workflow_id - - - insert into workflow_fsm_action_enabled_in_states - (action_id, state_id) - values (:action_id, :enabled_state_id) - - -