From 33ddca20641a0b8225a496ff4da5652b3f412f5e Mon Sep 17 00:00:00 2001
From: Wolfgang Meier <wolfgang@exist-db.org>
Date: Wed, 8 May 2019 10:57:53 +0200
Subject: [PATCH] Fix use of deprecated functions for compatibility with 5.0

---
 src/main/xar-resources/controller.xql      |  2 +-
 src/main/xar-resources/modules/app.xql     | 12 ++++++------
 src/main/xar-resources/modules/reindex.xql |  2 +-
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/main/xar-resources/controller.xql b/src/main/xar-resources/controller.xql
index 846e860..b5e1c7b 100644
--- a/src/main/xar-resources/controller.xql
+++ b/src/main/xar-resources/controller.xql
@@ -27,7 +27,7 @@ else if ($exist:resource eq "login") then
             util:declare-option("exist:serialize", "method=json"),
             <status>
                 <user>{request:get-attribute("org.exist.login.user")}</user>
-                <isAdmin json:literal="true">{ xmldb:is-admin-user(request:get-attribute("org.exist.login.user")) }</isAdmin>
+                <isAdmin json:literal="true">{ sm:is-dba(request:get-attribute("org.exist.login.user")) }</isAdmin>
             </status>
         } catch * {
             response:set-status-code(401),
diff --git a/src/main/xar-resources/modules/app.xql b/src/main/xar-resources/modules/app.xql
index 8c40a65..c2f2e7e 100644
--- a/src/main/xar-resources/modules/app.xql
+++ b/src/main/xar-resources/modules/app.xql
@@ -28,7 +28,7 @@ declare variable $app:MD_CONFIG := map {
 };
 
 declare function app:check-dba-user($node as node(), $model as map(*)) {
-    let $user := xmldb:get-current-user()
+    let $user := sm:id()/sm:id/(sm:effective|sm:real)[1]/sm:username
     return
         if (sm:is-dba($user)) then
             $node
@@ -38,7 +38,7 @@ declare function app:check-dba-user($node as node(), $model as map(*)) {
 
 declare function app:check-dba-user-and-not-data($node as node(), $model as map(*)) {
     let $data := collection($config:app-data)/xqdoc:xqdoc
-    let $user := xmldb:get-current-user()
+    let $user := sm:id()/sm:id/(sm:effective|sm:real)[1]/sm:username
     return
         if (sm:is-dba($user) and not($data)) then
             element { node-name($node) } {
@@ -50,7 +50,7 @@ declare function app:check-dba-user-and-not-data($node as node(), $model as map(
 
 declare function app:check-dba-user-and-data($node as node(), $model as map(*)) {
     let $data := collection($config:app-data)/xqdoc:xqdoc
-    let $user := xmldb:get-current-user()
+    let $user := sm:id()/sm:id/(sm:effective|sm:real)[1]/sm:username
     return
         if (sm:is-dba($user) and ($data)) then
             element { node-name($node) } {
@@ -71,7 +71,7 @@ declare function app:check-not-data($node as node(), $model as map(*)) {
 
 declare function app:check-not-dba-user-and-not-data($node as node(), $model as map(*)) {
     let $data := collection($config:app-data)/xqdoc:xqdoc
-    let $user := xmldb:get-current-user()
+    let $user := sm:id()/sm:id/(sm:effective|sm:real)[1]/sm:username
     return
         if (not(sm:is-dba($user)) and not($data)) then
             $node
@@ -136,7 +136,7 @@ declare %private function app:print-module($module as element(xqdoc:xqdoc), $fun
     let $uri := $module/xqdoc:module/xqdoc:uri/text()
     let $extDocs := app:get-extended-module-doc($module)[1]
     let $description := $module/xqdoc:module/xqdoc:comment/xqdoc:description/node()
-    let $parsed := if (contains($description, '&lt;') or contains($description, '&amp;')) then $description else util:parse("<div>" || replace($description, "\n{2,}", "<br/>") || "</div>")/*/node()
+    let $parsed := if (contains($description, '&lt;') or contains($description, '&amp;')) then $description else parse-xml("<div>" || replace($description, "\n{2,}", "<br/>") || "</div>")/*/node()
     return
     <div class="module" data-xqdoc="{document-uri(root($module))}">
         <div class="module-head">
@@ -220,7 +220,7 @@ declare %private function app:print-function($function as element(xqdoc:function
         then (substring-after($function-name, ":") || $arity)
         else ($function-name || $arity)
     let $description := $comment/xqdoc:description/node()
-    let $parsed := if (contains($description, '&lt;') or contains($description, '&amp;')) then $description else util:parse("<div>" || replace($description, "\n{2,}", "<br/>") || "</div>")/*/node()
+    let $parsed := if (contains($description, '&lt;') or contains($description, '&amp;')) then $description else parse-xml("<div>" || replace($description, "\n{2,}", "<br/>") || "</div>")/*/node()
     let $extDocs := app:get-extended-doc($function)[1]
     return
         <div class="function" id="{$function-identifier}">
diff --git a/src/main/xar-resources/modules/reindex.xql b/src/main/xar-resources/modules/reindex.xql
index 2770512..fd3f8f9 100644
--- a/src/main/xar-resources/modules/reindex.xql
+++ b/src/main/xar-resources/modules/reindex.xql
@@ -5,7 +5,7 @@ import module namespace config="http://exist-db.org/xquery/apps/config" at "conf
 
 declare option exist:serialize "method=json media-type=application/javascript";
 
-let $isDba := xmldb:is-admin-user(xmldb:get-current-user())
+let $isDba := sm:is-dba(xsm:id()/sm:id/(sm:effective|sm:real)[1]/sm:username)
 return
     if ($isDba) then
         <response status="ok">