login before storing

modules/fontane/misc.xqm

@@ -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