Commit 7b26d830 authored by Mathias Goebel's avatar Mathias Goebel 🎠

fixes syntax from olde http client not migratet very well

parent 65977b25
......@@ -71,15 +71,11 @@ declare function tgclient:getData($id as xs:string, $tgcrud-url as xs:string, $s
<http:request method="get">
<http:header name="Connection" value="close" />
</http:request>
let $getBody := http:send-request($reqGet, $reqUrl)[2]
let $request := http:send-request($reqGet, $reqUrl)
let $getBody := $request[2]
return
switch ($getBody/@mimetype)
case "text/plain" return
if ($getBody/@encoding = "URLEncoded") then
process:execute(('/usr/bin/curl',$reqUrl, "-s"), ())//line => string-join("&#13;")
else string($getBody)
default return document { $getBody/node() }
document { $getBody }
};
(:~ Returns a list of TextGrid items within a given aggregation, but only the
......@@ -224,7 +220,7 @@ map:merge(
map:entry($key, $value))
};
declare function local:soapHeader($requestName as xs:string) as node()
declare function local:soapHeader($requestName as xs:string) as node()
{
<http:header
name = "SOAP-Action"
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment