Check-in [11da371c34]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

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: 11da371c3431b9cf75f4ce30a17615744f532c9c
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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