Check-in [df85e4e49c]

Not logged in

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

Overview
Comment:Move default content type to a configurable option.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:df85e4e49c949ed488c487ff55ec804b7420b665
User & Date: gerald 2012-11-04 19:20:21
Context
2012-11-05 14:07
Additional corrections to embedded code. check-in: 8ab30a71a3 user: gerald tags: trunk
2012-11-04 19:20
Move default content type to a configurable option. check-in: df85e4e49c user: gerald tags: trunk
2012-11-02 05:06
Corrections for Embedded Mode. check-in: 0bdb608566 user: gerald tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ClientSide.tcl.

95
96
97
98
99
100
101

102
103
104
105
106
107
108
...
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
    set ::WS::Client::currentBaseUrl {}
    array set ::WS::Client::options {
        skipLevelWhenActionPresent 0
        skipLevelOnReply 0
        skipHeaderLevel 0
        suppressTargetNS 0
        allowOperOverloading 1

    }
}

 
###########################################################################
#
# Public Procedure Header - as this procedure is modified, please be sure
................................................................................
    dict set serviceArr($serviceName) imports {}
    dict set serviceArr($serviceName) inTransform {}
    dict set serviceArr($serviceName) outTransform {}
    dict set serviceArr($serviceName) skipLevelWhenActionPresent $options(skipLevelWhenActionPresent)
    dict set serviceArr($serviceName) skipLevelOnReply $options(skipLevelOnReply)
    dict set serviceArr($serviceName) skipHeaderLevel $options(skipHeaderLevel)
    dict set serviceArr($serviceName) suppressTargetNS $options(suppressTargetNS)
    dict set serviceArr($serviceName) contentType {text/xml;charset=utf-8}
    foreach {name value} $args {
        set name [string trimleft $name {-}]
        dict set serviceArr($serviceName) $name $value
    }

    ::log::log debug "Setting Target Namespace tns1 as $target"
    if {[dict exists $serviceArr($serviceName) xns]} {







>







 







|







95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
...
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
    set ::WS::Client::currentBaseUrl {}
    array set ::WS::Client::options {
        skipLevelWhenActionPresent 0
        skipLevelOnReply 0
        skipHeaderLevel 0
        suppressTargetNS 0
        allowOperOverloading 1
        contentType {text/xml;charset=utf-8}
    }
}

 
###########################################################################
#
# Public Procedure Header - as this procedure is modified, please be sure
................................................................................
    dict set serviceArr($serviceName) imports {}
    dict set serviceArr($serviceName) inTransform {}
    dict set serviceArr($serviceName) outTransform {}
    dict set serviceArr($serviceName) skipLevelWhenActionPresent $options(skipLevelWhenActionPresent)
    dict set serviceArr($serviceName) skipLevelOnReply $options(skipLevelOnReply)
    dict set serviceArr($serviceName) skipHeaderLevel $options(skipHeaderLevel)
    dict set serviceArr($serviceName) suppressTargetNS $options(suppressTargetNS)
    dict set serviceArr($serviceName) contentType $options(contentType)
    foreach {name value} $args {
        set name [string trimleft $name {-}]
        dict set serviceArr($serviceName) $name $value
    }

    ::log::log debug "Setting Target Namespace tns1 as $target"
    if {[dict exists $serviceArr($serviceName) xns]} {