Index: openacs-4/packages/workflow/tcl/workflow-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/workflow-procs.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/workflow/tcl/workflow-procs.xql	21 Jan 2003 18:06:00 -0000	1.3
+++ openacs-4/packages/workflow/tcl/workflow-procs.xql	3 Feb 2003 12:23:01 -0000	1.4
@@ -10,12 +10,37 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="workflow::get.workflow_info">
+    <querytext>
+      select workflow_id,
+             short_name,
+             pretty_name,
+             object_id,
+             package_key,
+             object_type
+      from   workflows
+      where  workflow_id = :workflow_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="workflow::get.workflow_callbacks">
+    <querytext>
+        select impl.impl_owner_name || '.' || impl.impl_name
+        from   acs_sc_impls impl,
+               workflow_callbacks c
+        where  c.workflow_id = :workflow_id
+        and    impl.impl_id = c.acs_sc_impl_id
+        order  by c.sort_order
+    </querytext>
+  </fullquery>
+
   <fullquery name="workflow::get_id.select_workflow_id_by_package_key">
     <querytext>
       select workflow_id
       from   workflows
       where  package_key = :package_key
       and    short_name = :short_name                        
+      and    object_id is null
     </querytext>
   </fullquery>
 
@@ -27,6 +52,24 @@
     </querytext>
   </fullquery>
   
+  <fullquery name="workflow::get_roles.select_role_ids">
+    <querytext>
+      select role_id
+      from   workflow_roles
+      where  workflow_id = :workflow_id
+      order  by sort_order
+    </querytext>
+  </fullquery>
+  
+  <fullquery name="workflow::get_actions.select_action_ids">
+    <querytext>
+      select action_id
+      from   workflow_actions
+      where  workflow_id = :workflow_id
+      order by sort_order
+    </querytext>
+  </fullquery>
+  
   <fullquery name="workflow::default_sort_order.max_sort_order">
     <querytext>
         select max(sort_order)
@@ -37,7 +80,7 @@
   
   <fullquery name="workflow::callback_insert.select_sort_order">
     <querytext>
-        select coalesce(max(sort_order)) + 1
+        select coalesce(max(sort_order),0) + 1
         from   workflow_callbacks
         where  workflow_id = :workflow_id
     </querytext>
@@ -50,6 +93,15 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="workflow::fsm::get_states.select_state_ids">
+    <querytext>
+      select state_id
+      from   workflow_fsm_states
+      where  workflow_id = :workflow_id
+      order by sort_order
+    </querytext>
+  </fullquery>
+
   <fullquery name="workflow::service_contract::get_impl_id.select_impl_id">
     <querytext>
         select impl_id