Index: openacs-4/packages/workflow/tcl/workflow-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/workflow/tcl/workflow-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/workflow/tcl/workflow-procs-oracle.xql	12 Feb 2003 14:23:15 -0000	1.1
+++ openacs-4/packages/workflow/tcl/workflow-procs-oracle.xql	5 Mar 2003 17:18:10 -0000	1.2
@@ -1,26 +1,38 @@
 <?xml version="1.0"?>
 <queryset>
-  <rdbms><type>oracle</type><version>8.1.7</version></rdbms>
+  <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
   <fullquery name="workflow::new.do_insert">
     <querytext>
-        workflow.new (
-            :short_name,
-            :pretty_name,
-            :package_key,            
-            :object_id,
-            :object_type,
-            :creation_user,
-            :creation_ip,
-            :context_id
+        begin
+        :1 := workflow.new (
+            short_name => :short_name,
+            pretty_name => :pretty_name,
+            package_key => :package_key,            
+            object_id => :object_id,
+            object_type => :object_type,
+            creation_user => :creation_user,
+            creation_ip => :creation_ip,
+            context_id => :context_id
         );
+        end;
     </querytext>
   </fullquery>
 
   <fullquery name="workflow::delete.do_delete">
     <querytext>
-        acs_object.delete(:workflow_id) from dual;
+        begin
+            :1 := workflow.delete(:workflow_id);
+        end;
     </querytext>
   </fullquery>
+ 
+  <fullquery name="workflow::callback_insert.select_sort_order">
+    <querytext>
+        select nvl(max(sort_order),0) + 1
+        from   workflow_callbacks
+        where  workflow_id = :workflow_id
+    </querytext>
+  </fullquery>
 
 </queryset>