Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Corrected logic of test. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a487bd41acda6d7ca7d80a7b36af3cb6 |
| User & Date: | gerald 2014-01-13 23:25:37 |
Context
| 2014-04-01 01:17 | Correct issue with cyclic includes and some simple type declarations. check-in: 342697b2e8 user: gerald tags: trunk | |
| 2014-01-13 23:25 | Corrected logic of test. check-in: a487bd41ac user: gerald tags: trunk | |
| 2014-01-11 20:33 | Correction to typo. check-in: 09d64d0da9 user: gerald tags: trunk | |
Changes
Changes to ClientSide.tcl.
1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 |
}
::http::wait $token
##
## Check for errors
##
set httpStatus [::http::status $token]
if {![string equal $httpStatus ok] && [::http::ncode $token] == 500} {
set body [::http::data $token]
::log::log debug "\tReceived: $body"
set outTransform [dict get $serviceInfo outTransform]
if {![string equal $outTransform {}]} {
SaveAndSetOptions $serviceName
catch {set body [$outTransform $serviceName $operationName REPLY $body]}
RestoreSavedOptions $serviceName
|
| |
1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 |
}
::http::wait $token
##
## Check for errors
##
set httpStatus [::http::status $token]
if {[string equal $httpStatus ok] && [::http::ncode $token] == 500} {
set body [::http::data $token]
::log::log debug "\tReceived: $body"
set outTransform [dict get $serviceInfo outTransform]
if {![string equal $outTransform {}]} {
SaveAndSetOptions $serviceName
catch {set body [$outTransform $serviceName $operationName REPLY $body]}
RestoreSavedOptions $serviceName
|