Index: openacs-4/packages/acs-service-contract/tcl/contract-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/contract-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-service-contract/tcl/contract-procs-oracle.xql	3 Feb 2003 12:17:36 -0000	1.1
+++ openacs-4/packages/acs-service-contract/tcl/contract-procs-oracle.xql	25 Feb 2003 15:15:33 -0000	1.2
@@ -1,20 +1,22 @@
 <?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="acs_sc::contract::new.insert_sc_contract">
     <querytext>
-        select acs_sc_contract.new(
-            :name, 
-            :description
-        ) from dual	
+        begin
+            :1 := acs_sc_contract.new(
+                :name, 
+                :description
+            );
+        end;
     </querytext>
   </fullquery>
   
   <fullquery name="acs_sc::contract::delete.get_name_by_id">
     <querytext>
-        select acs_sc_contract.get_name(
+         acs_sc_contract.get_name(
             :contract_id
         ) from dual 	
     </querytext>
@@ -40,23 +42,27 @@
   
   <fullquery name="acs_sc::contract::delete.delete_by_name">
     <querytext>
-        select acs_sc_contract.delete(
-            :name
-        ) from dual 	
+      begin
+        acs_sc_contract.delete(
+            contract_name => :name
+        );
+      end;
     </querytext>
   </fullquery>
   
   <fullquery name="acs_sc::contract::operation::new.insert_operation">
     <querytext>
-        select acs_sc_operation.new(
-            :contract_name,
-            :operation, 
-            :description, 
-            :is_cachable_p, 
-            :nargs, 
-            :input_type_name, 
-            :output_type_name
-        ) from dual 	
+        begin
+            :1 := acs_sc_operation.new(
+                :contract_name,
+                :operation, 
+                :description, 
+                :is_cachable_p, 
+                :nargs, 
+                :input_type_name, 
+                :output_type_name
+            );
+        end;
     </querytext>
   </fullquery>
 
@@ -71,10 +77,12 @@
   
   <fullquery name="acs_sc::contract::operation::delete.delete_by_name">
     <querytext>
-        select acs_sc_operation.delete(
-            :contract_name, 
-            :operation_name
-        ) from dual
+        begin
+          acs_sc_operation.delete(
+            contract_name => :contract_name, 
+            operation_name => :operation_name
+          );
+        end;
     </querytext>
   </fullquery>