Index: openacs-4/packages/workflow/tcl/role-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/role-procs.xql,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/workflow/tcl/role-procs.xql	20 Jan 2003 15:45:00 -0000	1.3
+++ openacs-4/packages/workflow/tcl/role-procs.xql	21 Jan 2003 18:06:00 -0000	1.4
@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 <queryset>
 
-  <fullquery name="workflow::role::new.do_insert">
+  <fullquery name="workflow::role::insert.do_insert">
     <querytext>
         insert into workflow_roles
                 (role_id, workflow_id, short_name, pretty_name)
@@ -19,4 +19,21 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="workflow::role::callback_insert.select_sort_order">
+    <querytext>
+        select coalesce(max(sort_order)) + 1
+        from   workflow_role_callbacks
+        where  role_id = :role_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="workflow::role::callback_insert.insert_rule">
+    <querytext>
+        insert into workflow_role_callbacks (role_id, acs_sc_impl_id, sort_order)
+        values (:role_id, :acs_sc_impl_id, :sort_order)
+    </querytext>
+  </fullquery>
+
+
+
 </queryset>