MarkLogic: Import permissions from Security Database

import-permissions.xqy

xquery version "1.0-ml";

declare variable $DATABASE-NAME as xs:string := "Security-Extra";

if (xdmp:database-name(xdmp:database()) eq $DATABASE-NAME )
then(
  for $i in cts:uris()
  let $perm := xdmp:eval('xquery version "1.0-ml";
  
  declare variable $URI as xs:string external;
  
  xdmp:document-get-permissions( $URI )',
   
   (xs:QName("URI"), $i),
  
  <options xmlns="xdmp:eval">
     <database>{xdmp:database("Security")}</database>
  </options>)
  return xdmp:document-set-permissions($i, $perm)
)
else(fn:error(xs:QName("CONFIGURATION-ERROR"), concat("Database / Content Source not set correctly - expecting ", $DATABASE-NAME, " and instead found ", xdmp:database-name(xdmp:database())) ))