Check-in [de790bc3ed]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Correct typo.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: de790bc3edbb9fc2fab9e2a3ce8085d3bd837e39
User & Date: gerald 2012-08-28 04:40:52
Context
2012-09-05 03:48
Correction to return inputs and outputs on operation list. check-in: 5e09915ab0 user: gerald tags: trunk
2012-08-28 04:40
Correct typo. check-in: de790bc3ed user: gerald tags: trunk
2012-08-26 00:16
Correction to handle expected, but missing reply headers (i.e. the SOAP Header element is missing enterly).

Also made a correction to handle a complex type that extends another type but does not add any elements or attributes. check-in: 3c5e0ef7f8 user: gerald tags: trunk

Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to Utilities.tcl.

3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
                        }
                    }
                }
                set baseInfo [GetServiceTypeDef $mode $serviceName $baseName]
                ::log::log debug "\t baseInfo is {$baseInfo}"
                catch {set partList [concat $partList [dict get $baseInfo definition]]}
            } else {
                ::log:log debug "\t Simple type"
            }
            foreach elementNode [$node childNodes] {
                set tmp [partList $mode $elementNode $serviceName results $tns]
                if {[llength $tmp]} {
                    set partList [concat $partList $tmp]
                }
            }






|







3018
3019
3020
3021
3022
3023
3024
3025
3026
3027
3028
3029
3030
3031
3032
                        }
                    }
                }
                set baseInfo [GetServiceTypeDef $mode $serviceName $baseName]
                ::log::log debug "\t baseInfo is {$baseInfo}"
                catch {set partList [concat $partList [dict get $baseInfo definition]]}
            } else {
                ::log::log debug "\t Simple type"
            }
            foreach elementNode [$node childNodes] {
                set tmp [partList $mode $elementNode $serviceName results $tns]
                if {[llength $tmp]} {
                    set partList [concat $partList $tmp]
                }
            }