Check-in [d512c8e2b3]

Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix for [8cf2656d0e] - proc inTransform does not transform the XML Soap message
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:d512c8e2b318d41ed329623586d209db7d6375a2
User & Date: gerald 2015-03-12 23:08:43
Context
2015-03-12 23:13
Fix for [b124391cf5] - inTransform and outTransform are "in" and "out" from the server point of view. check-in: 5009b918a3 user: gerald tags: trunk
2015-03-12 23:08
Fix for [8cf2656d0e] - proc inTransform does not transform the XML Soap message check-in: d512c8e2b3 user: gerald tags: trunk
2015-03-12 23:05
Fix for [9ea9b8e9a3] - $top undefined in ::WS::Client::parseResults check-in: 6a7c94f3a8 user: gerald tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ClientSide.tcl.

2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
                "Unsupported Style '$style'"
        }
    }

    ::WS::Utils::SetOption suppressNS {}
    set inTransform [dict get $serviceInfo inTransform]
    if {![string equal $inTransform {}]} {
        set query [$inTransform $serviceName $operationName REQUEST $xml $url $argList]
    }

    ::log::log debug "Leaving ::WS::Client::buildCallquery with {$xml}"
    return $xml

}








|







2100
2101
2102
2103
2104
2105
2106
2107
2108
2109
2110
2111
2112
2113
2114
                "Unsupported Style '$style'"
        }
    }

    ::WS::Utils::SetOption suppressNS {}
    set inTransform [dict get $serviceInfo inTransform]
    if {![string equal $inTransform {}]} {
        set xml [$inTransform $serviceName $operationName REQUEST $xml $url $argList]
    }

    ::log::log debug "Leaving ::WS::Client::buildCallquery with {$xml}"
    return $xml

}