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 -r1.27
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	27 Oct 2014 16:39:44 -0000	1.26
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	7 Aug 2017 23:47:57 -0000	1.27
@@ -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 "\n<b>acs-service-contract operation.  Call via acs_sc::invoke.</b>\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 <b>$element_name</b> - $element_msg_type_name"
 	if { $element_msg_type_isset_p } {
 	    append docblock " \[\]"
@@ -209,7 +209,7 @@
 } {
     Builds the statement to call from the provided metadata.
 
-    @param impl_alias tcl or plpgsql proc to call
+    @param impl_alias Tcl or plpgsql proc to call
     @param impl_pl programmimg language of the proc to call (TCL or PLPGSQL)
     @param arguments list of argument names
 
@@ -278,3 +278,9 @@
         # ns_log Debug "$msg"
     }
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: