Artifact
bac1d3809df064a39d2037312a1918fabf956d65:
Attachment "ClientSide-tcl.patch" to
ticket [a0efd382c3]
added by
anonymous
2016-02-09 10:59:26.
--- ClientSide.tcl.orig 2016-02-09 11:45:58.954740804 +0100
+++ ClientSide.tcl 2016-02-09 11:47:01.999734959 +0100
@@ -2088,7 +2088,7 @@
::WS::Utils::SetOption suppressNS {}
set inTransform [dict get $serviceInfo inTransform]
if {![string equal $inTransform {}]} {
- set query [$inTransform $serviceName $operationName REQUEST $xml $url $argList]
+ set xml [$inTransform $serviceName $operationName REQUEST $xml $url $argList]
}
::log::log debug "Leaving ::WS::Client::buildCallquery with {$xml}"