Check-in [39fddfa92f]
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 build of simple array elements on ::WS::Utils::convertDictToEncodedType.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk | Release_2.2.8
Files: files | file ages | folders
SHA1: 39fddfa92f21206133d5e60e206cc6aefcab9be9
User & Date: gerald 2012-09-20 17:27:14
Context
2012-09-27 03:08
[b15d09a403] - Documentation grammer fix. check-in: bde7145c36 user: gerald tags: trunk
2012-09-20 17:27
Corrected build of simple array elements on ::WS::Utils::convertDictToEncodedType. check-in: 39fddfa92f user: gerald tags: trunk, Release_2.2.8
2012-09-09 21:21
Corrected marking of arrays when no maxOccurs is present. check-in: 01b9ac3b53 user: gerald tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Utilities.tcl.

2082
2083
2084
2085
2086
2087
2088
2089
2090
2091
2092
2093
2094
2095
2096
                foreach resultValue $dataList {
                    if {[string equal $xns $options(suppressNS)]} {
                        $parent appendChild [$doc createElement $itemName retNode]
                    } else {
                        $parent appendChild [$doc createElement $xns:$itemName retNode]
                    }
                    $retNode setAttribute xsi:type $attrType
                    set resultValue [dict get $dict $itemName]
                    $retNode appendChild [$doc createTextNode $resultValue]
                }
            }
            {1 0} {
                ##
                ## Non-simple non-array
                ##






<







2082
2083
2084
2085
2086
2087
2088

2089
2090
2091
2092
2093
2094
2095
                foreach resultValue $dataList {
                    if {[string equal $xns $options(suppressNS)]} {
                        $parent appendChild [$doc createElement $itemName retNode]
                    } else {
                        $parent appendChild [$doc createElement $xns:$itemName retNode]
                    }
                    $retNode setAttribute xsi:type $attrType

                    $retNode appendChild [$doc createTextNode $resultValue]
                }
            }
            {1 0} {
                ##
                ## Non-simple non-array
                ##