Commit d9775d56 authored by Mathias Goebel's avatar Mathias Goebel 🎠
Browse files

login before storing

parent 37dabcc6
......@@ -443,7 +443,7 @@ declare function f-misc:textgridStatus($node as node(), $model as map(*)) {
let $status := httpclient:get(xs:anyURI($url), false(), ())//xhtml:div[contains(@class, 'repstatus')][not( contains(@class, 'ok') )]
let $status := if( exists( $status ) ) then $status else <ok/>
return
xmldb:store($col, $res, $status)
(xmldb:login($col, config:get("sade.user"), config:get("sade.password")), xmldb:store($col, $res, $status))
else ()
let $doc := doc( $col || "/" || $res )
return
......
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