Index: openacs-4/packages/acs-service-contract/tcl/msg-type-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/msg-type-procs-oracle.xql,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-service-contract/tcl/msg-type-procs-oracle.xql	3 Feb 2003 12:17:36 -0000	1.1
+++ openacs-4/packages/acs-service-contract/tcl/msg-type-procs-oracle.xql	25 Feb 2003 15:15:33 -0000	1.2
@@ -1,33 +1,54 @@
 <?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::msg_type::new.insert_msg_type">
     <querytext>
-        select acs_sc_msg_type.new(
-            :name, 
-            :specification
-        ) from dual
+        begin
+            :1 := acs_sc_msg_type.new(
+                :name, 
+                :specification
+            );
+        end;
     </querytext>
   </fullquery>
 
   <fullquery name="acs_sc::msg_type::delete.delete_by_id">
     <querytext>
-        select acs_sc_msg_type.delete(
-            :msg_type_id
-        ) from dual
+        begin
+            acs_sc_msg_type.delete(
+                msg_type_id => :msg_type_id
+            );
+        end;
     </querytext>
   </fullquery>
   
   <fullquery name="acs_sc::msg_type::delete.delete_by_name">
     <querytext>
-        select acs_sc_msg_type.delete(
-            :name
-        ) from dual
+        begin
+            acs_sc_msg_type.delete(
+                msg_type_name => :name
+            );
+        end;
     </querytext>
   </fullquery>
 
+  <fullquery name="acs_sc::msg_type::element::new.insert_msg_type_element">
+    <querytext>
+        begin
+            :1 := acs_sc_msg_type.new_element(
+                :msg_type_name,
+                :element_name,
+                :element_msg_type_name,
+                :element_msg_type_isset_p,
+                :element_pos
+            );
+        end;
+    </querytext>
+  </fullquery>
+
+
 </queryset>