existdb 5 compatibility

deutsche-biographie-get.xq

@@ -16,11 +16,11 @@ let $target := $beacon[starts-with(., "#TARGET:")] => substring-after(": ")
   (: should return something like "http://www.deutsche-biographie.de/pnd{ID}.html#adbcontent"
    : where «{ID}» is to be replaced by the GND ID :)
   let $replacement := "\{ID\}"
-  return map:new(
+  return map:merge(
                 for $i in $beacon[not(starts-with(., "#"))][not(starts-with(., "("))][. != ""]
                 return
                   map:entry($i, replace($target, $replacement, $i))
-              )
+  )
 let $merge := map:merge($maps)
 
 return

index-create-mentions.xq

@@ -52,7 +52,7 @@ let $cleanup := local:remove-old-stuff($dataPath)
 
 let $prefixes := (//tei:listPrefixDef[(.//@replacementPattern/contains(., "textgrid:")) = true()])/tei:prefixDef
 let $map :=
-    map:new(
+    map:merge(
         $prefixes !
         map:entry(string(./@ident), $dataPath || substring(./@replacementPattern, 10, 5) || ".xml")
     )

index/create.xq

@@ -42,7 +42,7 @@ let $cleanup := update delete //tei:linkGrp//comment()[contains(., "Notizbuch ")
 (: map prefixes to index documents :)
 let $prefixes := (//tei:listPrefixDef[(.//@replacementPattern/contains(., "textgrid:")) = true()])/tei:prefixDef
 let $map :=
-    map:new(
+    map:merge(
         $prefixes !
         map:entry(string(./@ident), $dataPath || substring(./@replacementPattern, 10, 5) || ".xml")
     )

index/remove.xq

@@ -14,9 +14,9 @@ let $dataPath := "/db/sade-projects/textgrid/data/xml/data/"
 (: map prefixes to index documents :)
 let $prefixes := (//tei:listPrefixDef[(.//@replacementPattern/contains(., "textgrid:")) = true()])/tei:prefixDef
 let $map :=
-    map:new(
+    map:merge(
         $prefixes !
-        map:entry(string(./@ident), $dataPath || substring(./@replacementPattern, 10, 5) || ".xml")
+        map{ string(./@ident): $dataPath || substring(./@replacementPattern, 10, 5) || ".xml"}
     )
 
 (: collect available entities from the index :)

index/toPreserve.xq

@@ -14,7 +14,7 @@ let $collection := collection($dataPath)
 (: map prefixes to index documents :)
 let $prefixes := ($collection//tei:listPrefixDef[(.//@replacementPattern/contains(., "textgrid:")) = true()])/tei:prefixDef
 let $map :=
-    map:new(
+    map:merge(
         $prefixes !
         map:entry(string(./@ident), $dataPath || substring(./@replacementPattern, 10, 5) || ".xml")
     )

index/transform.xq

@@ -126,7 +126,7 @@ let $login := xmldb:login("/db", "admin", "")
 (: map prefixes to index documents :)
 let $prefixes := ($collection//tei:listPrefixDef[(.//@replacementPattern/contains(., "textgrid:")) = true()])/tei:prefixDef
 let $map :=
-    map:new(
+    map:merge(
         $prefixes !
         map:entry(string(./@ident), $dataPath || substring(./@replacementPattern, 10, 5) || ".xml")
     )

post-install.xq

@@ -80,9 +80,11 @@ declare variable $credentialInjection :=
 
 declare variable $configdoc := doc( "/db/sade-projects/textgrid/config.xml" );
 
-declare variable $config := map:new(for $param in $configdoc/config/param
-                              return map:entry(string($param/@key), string($param))
-                              );
+declare variable $config := 
+map:merge(
+    for $param in $configdoc/config/param
+    return map:entry(string($param/@key), string($param))
+);
 
 declare variable $postinstall-log := util:log-system-out("webauth: "||$config("textgrid.webauth"));
 

sade-projects/textgrid/data/xml/anno.xq

@@ -25,7 +25,7 @@ declare variable $img := request:get-parameter("img", "textgrid:164h2.1");
 declare variable $surfaces := collection('/db/sade-projects/textgrid/data/xml/data/')//tei:sourceDoc/tei:surface[ends-with(@facs, substring-before($img, "."))];
 
 declare variable $xywh :=
-map:new(
+map:merge(
     for $surface in $surfaces
     let $iiifUrlArr := fontaneTransfo:digilib($surface) =>  tokenize('/')
     let $pctArr := $iiifUrlArr[starts-with(., 'pct:')] => substring(5) => tokenize(',')

trigger-publish.xql

@@ -6,9 +6,10 @@ import module namespace tgclient="http://textgrid.info/namespaces/xquery/tgclien
 
 declare namespace tgmd="http://textgrid.info/namespaces/metadata/core/2010";
 declare variable $configdoc := doc( "/db/sade-projects/textgrid/config.xml" );
-declare variable $config := map:new(for $param in $configdoc//param
-                              return map:entry(string($param/@key), string($param))
-                              );
+declare variable $config := 
+  map:merge( for $param in $configdoc//param
+    return map:entry(string($param/@key), string($param))
+  );
 declare variable $sid :=
   tgclient:getSid(
     $config("textgrid.webauth"),