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 11 Dec 2003 21:39:55 -0000 1.2 @@ -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 + + + + +