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.26.2.1 -r1.26.2.2
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl 10 Sep 2015 08:21:33 -0000 1.26.2.1
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl 2 Jan 2016 17:50:12 -0000 1.26.2.2
@@ -91,7 +91,7 @@
@author Neophytos Demetriou
} {
- return [db_string binding_exists_p {*SQL*}]
+ return [db_string binding_exists_p {}]
}
@@ -126,7 +126,7 @@
if {![set exists_p]} {return ""}
- db_0or1row get_alias {*SQL*}
+ db_0or1row get_alias {}
return [list $impl_alias $impl_pl]
@@ -160,22 +160,22 @@
error "ACS-SC: Cannot find alias for $proc_name"
}
- if {![db_0or1row get_operation_definition {*SQL*}]} {
+ if {![db_0or1row get_operation_definition {}]} {
ns_log warning "ACS-SC: operation definition not found for contract $contract operation $operation"
return 0
}
append docblock "\nacs-service-contract operation. Call via acs_sc::invoke.\n\n$operation_desc\n\n"
- db_foreach operation_inputtype_element {*SQL*} {
+ db_foreach operation_inputtype_element {} {
lappend arguments "$element_name"
append docblock "\n@param $element_name $element_msg_type_name"
if { $element_msg_type_isset_p } {
append docblock " \[\]"
}
}
- db_foreach operation_outputtype_element {*SQL*} {
+ db_foreach operation_outputtype_element {} {
append docblock "\n@return $element_name - $element_msg_type_name"
if { $element_msg_type_isset_p } {
append docblock " \[\]"