Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init-postgresql.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-postgresql.xql 4 Dec 2003 00:23:58 -0000 1.1.2.1
@@ -0,0 +1,13 @@
+
+
+
+postgresql7.1
+
+
+
+
+select acs_sc_binding__exists_p(:impl_contract_name,:impl_name)
+
+
+
+
Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs-postgresql.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-postgresql.xql 4 Dec 2003 00:23:58 -0000 1.1.2.1
@@ -0,0 +1,65 @@
+
+
+
+postgresql7.1
+
+
+
+
+select acs_sc_binding__exists_p(:contract,:impl)
+
+
+
+
+
+ select impl_alias, impl_pl
+ from acs_sc_impl_aliases
+ where impl_contract_name = :contract
+ and impl_operation_name = :operation
+ and impl_name = :impl
+
+
+
+
+
+ select
+ operation_desc,
+ operation_iscachable_p,
+ operation_nargs,
+ operation_inputtype_id,
+ operation_outputtype_id
+ from acs_sc_operations
+ where contract_name = :contract
+ and operation_name = :operation
+
+
+
+
+
+
+ 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
+
+
+
+
+
+ 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
+
+
+
+
+