Check-in [1fb2ffad2d]
Not logged in

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

Overview
Comment:Add missing variable import. Ticket [7bb1cd7b43]
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 1fb2ffad2da8d7e0a2fa599c2bb857bf19188da4db14913bb9ff709db6d4809f
User & Date: andy 2018-07-20 15:46:01.480
Original Comment: Add missing variable import
References
2021-08-04 14:59 Closed ticket [7bb1cd7b43]: plus 1 other change artifact: 0ef77d6a65 user: oehhar
2018-09-03 17:30 New ticket [7bb1cd7b43]. artifact: 2d9dad3398 user: oehhar
Context
2018-07-20 15:54
Correct which document is being imported. Ticket [61fd346dc3] check-in: 867828f03a user: andy tags: trunk
2018-07-20 15:46
Add missing variable import. Ticket [7bb1cd7b43] check-in: 1fb2ffad2d user: andy tags: trunk
2018-07-20 15:25
Removed execute flags (again) check-in: 50b6c37ac6 user: andy tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to Utilities.tcl.
758
759
760
761
762
763
764

765
766
767
768
769
770
771
#
###########################################################################
proc ::WS::Utils::ProcessImportXml {mode baseUrl xml serviceName serviceInfoVar tnsCountVar} {
    ::log::logsubst debug {Entering [info level 0]}
    upvar 1 $serviceInfoVar serviceInfo
    upvar 1 $tnsCountVar tnsCount
    variable currentSchema

    variable xsltSchemaDom

    set first [string first {<} $xml]
    if {$first > 0} {
        set xml [string range $xml $first end]
    }
    if {[catch {dom parse $xml tmpdoc}]} {







>







758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
#
###########################################################################
proc ::WS::Utils::ProcessImportXml {mode baseUrl xml serviceName serviceInfoVar tnsCountVar} {
    ::log::logsubst debug {Entering [info level 0]}
    upvar 1 $serviceInfoVar serviceInfo
    upvar 1 $tnsCountVar tnsCount
    variable currentSchema
    variable nsList
    variable xsltSchemaDom

    set first [string first {<} $xml]
    if {$first > 0} {
        set xml [string range $xml $first end]
    }
    if {[catch {dom parse $xml tmpdoc}]} {