Index: openacs-4/packages/acs-service-contract/tcl/implementation-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/implementation-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-service-contract/tcl/implementation-procs-oracle.xql	3 Feb 2003 12:17:36 -0000	1.1
+++ openacs-4/packages/acs-service-contract/tcl/implementation-procs-oracle.xql	25 Feb 2003 15:15:33 -0000	1.2
@@ -5,41 +5,49 @@
 
     <fullquery name="acs_sc::impl::new.impl_new">
         <querytext>
-            select acs_sc_impl.new(
-                       :contract_name, 
+            begin
+                :1 := acs_sc_impl.new(
+                           :contract_name, 
                        :name,
                        :owner
-                   ) from dual
+                   );
+            end;
         </querytext>
     </fullquery>
 
     <fullquery name="acs_sc::impl::alias::new.alias_new">
         <querytext>
-            select acs_sc_impl_alias.new(
+            begin
+                :1 := acs_sc_impl_alias.new(
                        :contract_name, 
                        :impl_name,
                        :operation,
                        :alias,
                        :language
-                   ) from dual
+                   );
+            end;
         </querytext>
     </fullquery>
 
     <fullquery name="acs_sc::impl::binding::new.binding_new">
         <querytext>
-            select acs_sc_binding.alias_new(
-                       :contract_name, 
-                       :impl_name
-                   ) from dual
+            begin
+                acs_sc_binding.new(
+                       contract_name => :contract_name, 
+                       impl_name => :impl_name
+                   );
+            end;
         </querytext>
     </fullquery>
 
     <fullquery name="acs_sc::impl::delete.delete_impl">
         <querytext>
-            select acs_sc_impl.delete(
-                       :contract_name, 
-                       :impl_name
-                   ) from dual 	
+            begin
+                acs_sc_impl.delete(
+                       impl_contract_name => :contract_name, 
+                       impl_name => :impl_name
+                   );
+            end;
         </querytext>
     </fullquery>