Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Corrected array processing. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
11da371c3431b9cf75f4ce30a1761574 |
| User & Date: | gerald 2012-09-08 15:38:20 |
Context
| 2012-09-08 20:59 | Correct unbalanced parans. check-in: ae9ea437b8 user: gerald tags: trunk | |
| 2012-09-08 15:38 | Corrected array processing. check-in: 11da371c34 user: gerald tags: trunk | |
| 2012-09-08 15:37 | Enhanced processing of array elements. check-in: b83f5b24e3 user: gerald tags: trunk | |
Changes
Changes to Utilities.tcl.
1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 |
set nodeType [$childNode nodeType]
::log::log debug "\t\t Looking at [$childNode localName] ($allowAny,$isArray,$nodeType,$partName)"
# From SOAP1.1 Spec:
# Within an array value, element names are not significant
# for distinguishing accessors. Elements may have any name.
# Here we don't need check the element name, just simple check
# it's a element node
if {($allowAny || $arrayOverride) && ([string equal $nodeType "ELEMENT_NODE"])} {
::log::log debug "\t\t Found $partName [$childNode asXML]"
lappend item $childNode
}
}
if {![string length $item]} {
::log::log debug "\tSkipping"
continue
|
| |
1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 |
set nodeType [$childNode nodeType]
::log::log debug "\t\t Looking at [$childNode localName] ($allowAny,$isArray,$nodeType,$partName)"
# From SOAP1.1 Spec:
# Within an array value, element names are not significant
# for distinguishing accessors. Elements may have any name.
# Here we don't need check the element name, just simple check
# it's a element node
if {($allowAny || ($arrayOverride && [string equal $nodeType "ELEMENT_NODE"])} {
::log::log debug "\t\t Found $partName [$childNode asXML]"
lappend item $childNode
}
}
if {![string length $item]} {
::log::log debug "\tSkipping"
continue
|