Index: openacs-4/packages/workflow/tcl/action-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/action-procs.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/workflow/tcl/action-procs.xql	14 Jan 2003 15:09:16 -0000	1.2
+++ openacs-4/packages/workflow/tcl/action-procs.xql	20 Jan 2003 15:45:00 -0000	1.3
@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 <queryset>
 
-  <fullquery name="workflow::action::add.insert_allowed_role">
+  <fullquery name="workflow::action::new.insert_allowed_role">
     <querytext>
         insert into workflow_action_allowed_roles
         select :action_id,
@@ -12,14 +12,32 @@
     </querytext>
   </fullquery>
 
-  <fullquery name="workflow::action::add.insert_privilege">
+  <fullquery name="workflow::action::new.insert_privilege">
     <querytext>
         insert into workflow_action_privileges
                 (action_id, privilege)
          values (:action_id, :privilege)
     </querytext>
   </fullquery>
 
+  <fullquery name="workflow::action::new.insert_action">
+    <querytext>
+        insert into workflow_actions
+            (action_id, workflow_id, sort_order, short_name, pretty_name, pretty_past_tense, 
+             assigned_role, always_enabled_p)
+      values (:action_id, :workflow_id, :sort_order, :short_name, :pretty_name, :pretty_past_tense, 
+              :assigned_role_id, :always_enabled_p)
+    </querytext>
+  </fullquery>
+
+  <fullquery name="workflow::action::new.insert_initial_action">
+    <querytext> 
+        insert into workflow_initial_action
+                (workflow_id, action_id)
+         values (:workflow_id, :action_id)
+    </querytext>
+  </fullquery>
+
   <fullquery name="workflow::action::get_assigned_role.select_assigned_role">
     <querytext>
       select assigned_role
@@ -53,20 +71,37 @@
     </querytext>
   </fullquery>
 
-  <fullquery name="workflow::action::add.insert_action">
+  <fullquery name="workflow::action::get.action_info">
     <querytext>
-        insert into workflow_actions
-         select  :action_id,
-                 :workflow_id, 
-                 :sort_order, 
-                 :short_name, 
-                 :pretty_name, 
-                 :pretty_past_tense, 
-                 :assigned_role_id,
-                 :always_enabled_p
+        select workflow_id,
+               sort_order,
+               short_name,
+               pretty_name,
+               pretty_past_tense,
+               assigned_role,
+               always_enabled_p
+        from workflow_actions
+        where action_id = :action_id
     </querytext>
   </fullquery>
 
+  <fullquery name="workflow::action::fsm::new.insert_fsm_action">
+    <querytext>
+        insert into workflow_fsm_actions
+                (action_id, new_state)
+            values
+                (:action_id, :new_state_id)        
+    </querytext>
+  </fullquery>
+
+  <fullquery name="workflow::action::fsm::new.insert_enabled_state">
+    <querytext>
+        insert into workflow_fsm_action_enabled_in_states
+                (action_id, state_id)
+         values (:action_id, :enabled_state_id)
+    </querytext>
+  </fullquery>
+
   <fullquery name="workflow::action::fsm::get_new_state.select_new_state">
     <querytext>
       select new_state