Copy documents between two MarkLogic module databases (or any two MarkLogic databases really)

copy-documents-between-module-databases.xqy

xquery version "1.0-ml";

let $ui-uris := cts:uri-match("/lib/*", "document")
for $u in $ui-uris
return
  xdmp:eval('
    declare variable $u external;
    declare variable $d external;
    declare variable $p := ( xdmp:permission("rest-extension-user", "execute"), xdmp:permission("rest-admin", "update"), xdmp:permission("rest-admin", "read"), xdmp:permission("ui-role", "update"), xdmp:permission("ui-role", "read"), xdmp:permission("ui-role", "execute") );
    xdmp:document-insert($u, $d, $p)
  ',
  (
    xs:QName("u"), $u,
    xs:QName("d"), fn:doc($u)
  )
  ,
  <options xmlns="xdmp:eval">
    <database>{xdmp:database("ui-modules--refactoring")}</database>
  </options>
  )