Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init-oracle.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init-oracle.xql	9 Oct 2001 04:57:37 -0000	1.1
@@ -0,0 +1,14 @@
+<?xml version="1.0"?>
+
+<queryset>
+<rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+
+<fullquery name="binding_exists_p">
+<querytext>
+select acs_sc_binding.exists_p(:impl_contract_name,:impl_name) from dual
+</querytext>
+</fullquery>
+
+
+</queryset>
Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl	6 Oct 2001 16:30:30 -0000	1.2
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl	9 Oct 2001 04:57:37 -0000	1.3
@@ -7,9 +7,9 @@
     from acs_sc_impl_aliases
 } {
 
-    set binding_exists_p [db_exec_plsql binding_exists_p {select acs_sc_binding__exists_p(:impl_contract_name,:impl_name)}]
+    set binding_exists_p [db_string binding_exists_p {select acs_sc_binding__exists_p(:impl_contract_name,:impl_name)}]
 
     if $binding_exists_p {
 	acs_sc_proc $impl_contract_name $impl_operation_name $impl_name
     }
-}
\ No newline at end of file
+}
Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs-oracle.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs-oracle.xql	9 Oct 2001 04:57:37 -0000	1.1
@@ -0,0 +1,40 @@
+<?xml version="1.0"?>
+
+<queryset>
+<rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+
+<fullquery name="acs_sc_binding_exists_p.binding_exists_p">
+<querytext>
+select acs_sc_binding.exists_p(:contract,:impl) from dual
+</querytext>
+</fullquery>
+
+<fullquery name="acs_sc_proc.operation_inputtype_element">
+<querytext>
+	select 
+	    element_name, 
+	    acs_sc_msg_type.get_name(element_msg_type_id) as element_msg_type_name,
+	    element_msg_type_isset_p,
+	    element_pos
+	from acs_sc_msg_type_elements
+	where msg_type_id = :operation_inputtype_id
+	order by element_pos asc
+</querytext>
+</fullquery>
+
+<fullquery name="acs_sc_proc.operation_outputtype_element">
+<querytext>
+	select 
+	    element_name, 
+	    acs_sc_msg_type.get_name(element_msg_type_id) as element_msg_type_name,
+	    element_msg_type_isset_p,
+	    element_pos
+	from acs_sc_msg_type_elements
+	where msg_type_id = :operation_outputtype_id
+	order by element_pos asc
+</querytext>
+</fullquery>
+
+
+</queryset>
Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	6 Oct 2001 16:30:30 -0000	1.5
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	9 Oct 2001 04:57:37 -0000	1.6
@@ -11,7 +11,7 @@
     @author Neophytos Demetriou
 } {
 
-    return [db_exec_plsql binding_exists_p {select acs_sc_binding__exists_p(:contract,:impl)}]
+    return [db_string binding_exists_p {select acs_sc_binding__exists_p(:contract,:impl)}]
 
 }