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/Attic/acs-service-contract-procs-oracle.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs-oracle.xql 9 May 2018 10:11:45 -0000 1.5
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs-oracle.xql 14 Jun 2018 16:43:50 -0000 1.6
@@ -1,53 +1,12 @@
-oracle8.1.6
+ oracle8.1.6
-
-
-
-select acs_sc_binding.exists_p(:contract,:impl) from dual
-
-
-
-
-
- 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,
- nvl(operation_iscachable_p,'f') as 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 = :msg_type_id
- order by element_pos asc
-
-
-
-
+
+
+ select acs_sc_binding.exists_p(:contract,:impl) from dual
+
+
+
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/Attic/acs-service-contract-procs-postgresql.xql,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs-postgresql.xql 9 May 2018 10:11:45 -0000 1.4
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs-postgresql.xql 14 Jun 2018 16:43:50 -0000 1.5
@@ -1,51 +1,12 @@
-postgresql7.1
+ postgresql7.1
+
+
+ select acs_sc_binding__exists_p(:contract,:impl)
+
+
-
-
-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,
- coalesce(operation_iscachable_p,'f') as 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 = :msg_type_id
- order by element_pos asc
-
-
-
-
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 -r1.30 -r1.31
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl 9 May 2018 15:33:28 -0000 1.30
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl 14 Jun 2018 16:43:50 -0000 1.31
@@ -126,7 +126,13 @@
if {![set exists_p]} {return ""}
- db_0or1row get_alias {}
+ db_0or1row get_alias {
+ select impl_alias, impl_pl
+ from acs_sc_impl_aliases
+ where impl_contract_name = :contract
+ and impl_operation_name = :operation
+ and impl_name = :impl
+ }
return [list $impl_alias $impl_pl]
@@ -160,7 +166,17 @@
error "ACS-SC: Cannot find alias for $proc_name"
}
- if {![db_0or1row get_operation_definition {}]} {
+ if {![db_0or1row get_operation_definition {
+ select
+ operation_desc,
+ coalesce(operation_iscachable_p,'f') as operation_iscachable_p,
+ operation_nargs,
+ operation_inputtype_id,
+ operation_outputtype_id
+ from acs_sc_operations
+ where contract_name = :contract
+ and operation_name = :operation
+ }]} {
ns_log warning "ACS-SC: operation definition not found for contract $contract operation $operation"
return 0
}
Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.xql,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.xql 14 Jun 2018 16:43:50 -0000 1.1
@@ -0,0 +1,19 @@
+
+
+
+
+
+
+ select
+ element_name,
+ (select msg_type_name from acs_sc_msg_types
+ where msg_type_id = 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 = :msg_type_id
+ order by element_pos asc
+
+
+
+