Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix for bug [6bdf06291d] -- undefined variable when asynch call fails. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
51c849b483e6e8d90853a3d96b649654 |
| User & Date: | gerald 2016-11-23 16:40:03 |
References
| 2016-11-23 16:40 | • Fixed ticket [6bdf06291d]: Error on asynchronous call results in undefined variable plus 2 other changes artifact: 1d4e3ee56b user: gwlester | |
Context
| 2017-04-11 16:21 | Merge JSON REST changes into trunk. Ticket [9c6ff35e39] check-in: 2b869c069e user: gerald tags: trunk, Release_2.4.0 | |
| 2017-04-10 10:06 | Fixes proposed by Dennis Pfeifer to address parsing errors. Ticket [ce9cf80b6efd6419] check-in: 2e183f0cc8 user: oehhar tags: bug-ce9cf80b6efd6419 | |
| 2017-04-07 06:54 | Allow inline namespaces in WSDL. RFE [dcce437d7aa5e64a] check-in: 57a60e547b user: oehhar tags: rfe-dcce437d7aa5e64a | |
| 2017-04-01 08:41 | Create new branch named "fwr-jsonrest-changes" check-in: 171251a55b user: jeff.lawson tags: rfe-9c6ff35e39, fwr-jsonrest-changes | |
| 2016-11-23 16:40 | Fix for bug [6bdf06291d] -- undefined variable when asynch call fails. check-in: 51c849b483 user: gerald tags: trunk | |
| 2016-11-03 09:28 | Removed exec file property from tcl files check-in: dbd1245897 user: oehhar tags: trunk | |
Changes
Changes to ClientSide.tcl.
1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 |
::log::log debug "Entering ::WS::Client::asyncCallDone {$serviceName $operationName $succesCmd $errorCmd $token}"
##
## Check for errors
##
set body [::http::data $token]
::log::log info "\nReceived: $body"
if {![string equal [::http::status $token] ok] ||
([::http::ncode $token] != 200 && [string equal $body {}])} {
set errorCode [list WS CLIENT HTTPERROR [::http::code $token]]
set hadError 1
set errorInfo [FormatHTTPError $token]
} else {
SaveAndSetOptions $serviceName
|
> |
1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 |
::log::log debug "Entering ::WS::Client::asyncCallDone {$serviceName $operationName $succesCmd $errorCmd $token}"
##
## Check for errors
##
set body [::http::data $token]
::log::log info "\nReceived: $body"
set results {}
if {![string equal [::http::status $token] ok] ||
([::http::ncode $token] != 200 && [string equal $body {}])} {
set errorCode [list WS CLIENT HTTPERROR [::http::code $token]]
set hadError 1
set errorInfo [FormatHTTPError $token]
} else {
SaveAndSetOptions $serviceName
|