Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add missing variable import. Ticket [7bb1cd7b43] |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
1fb2ffad2da8d7e0a2fa599c2bb857bf |
| User & Date: | andy 2018-07-20 15:46:01 |
| Original Comment: | Add missing variable import |
References
| 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
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}]} {
|