Homec4science
Diffusion nietzsche-dm (master) Browse

nietzsche-dm/modules/lib/api/collection.xql
4ba6bbbbbb46master

Last Change
Raw File

collection.xql
View Options

xquery version "3.1";
module namespace capi="http://teipublisher.com/api/collection";
import module namespace errors = "http://e-editiones.org/roaster/errors";
import module namespace config="http://www.tei-c.org/tei-simple/config" at "../../config.xqm";
import module namespace browse="http://www.tei-c.org/tei-simple/templates" at "../browse.xql";
import module namespace pages="http://www.tei-c.org/tei-simple/pages" at "../pages.xql";
import module namespace tpu="http://www.tei-c.org/tei-publisher/util" at "../util.xql";
import module namespace templates="http://exist-db.org/xquery/html-templating";
import module namespace lib="http://exist-db.org/xquery/html-templating/lib";
import module namespace docx="http://existsolutions.com/teipublisher/docx";
import module namespace pm-config="http://www.tei-c.org/tei-simple/pm-config" at "../../pm-config.xql";
import module namespace custom="http://teipublisher.com/api/custom" at "../../custom-api.xql";
import module namespace query="http://www.tei-c.org/tei-simple/query" at "../query.xql";
import module namespace nav="http://www.tei-c.org/tei-simple/navigation" at "../navigation.xql";
import module namespace console="http://exist-db.org/xquery/console";
declare function capi:list($request as map(*)) {
let $path := if ($request?parameters?path) then xmldb:decode($request?parameters?path) else ()
let $params := capi:params2map($path)
let $cached := session:get-attribute($config:session-prefix || ".works")
let $useCached := capi:use-cache($params, $cached)
let $works := capi:list-works($path, if ($useCached) then $cached else (), $params)
let $templatePath := $config:data-root || "/" || $path || "/collection.html"
let $templateAvail := doc-available($templatePath) or util:binary-doc-available($templatePath)
let $template :=
if ($templateAvail and $works?mode = 'browse') then
$templatePath
else
$config:app-root || "/templates/documents.html"
let $lookup := function($name as xs:string, $arity as xs:int) {
try {
let $cfun := custom:lookup($name, $arity)
return
if (empty($cfun)) then
function-lookup(xs:QName($name), $arity)
else
$cfun
} catch * {
()
}
}
let $model := map:merge(($works, map {
"app": $config:context-path,
"mode": "browse"
}))
return
templates:apply(doc($template), $lookup, $model, tpu:get-template-config($request))
};
declare
%private
function capi:list-works($root as xs:string?, $cached, $params as map(*)) {
(: session:clear(), :)
let $sort := request:get-parameter("sort", "title")
let $filter := request:get-parameter("field", ())
let $query := request:get-parameter("query", ())
let $filtered :=
if (exists($cached)) then
$cached
else
query:query-metadata($root, ($filter, "div")[1], $query, $sort)
return (
session:set-attribute($config:session-prefix || ".timestamp", current-dateTime()),
session:set-attribute($config:session-prefix || '.hits', $filtered?all),
session:set-attribute($config:session-prefix || '.params', $params),
session:set-attribute($config:session-prefix || ".works", $filtered),
if (empty($cached)) then
session:set-attribute($config:session-prefix || ".collection", $root)
else
(),
map:merge((
$filtered,
map {
"query": $query,
"field": $filter,
"root":
if (exists($cached)) then
session:get-attribute($config:session-prefix || ".collection")
else
$root
}
))
)
};
declare %private function capi:params2map($root as xs:string?) {
map:merge((
for $param in request:get-parameter-names()[not(. = ("start", "per-page", "page", "path"))]
return
map:entry($param, request:get-parameter($param, ())),
map:entry("collection", $root)
))
};
declare %private function capi:use-cache($params as map(*), $cached) {
let $cachedParams := session:get-attribute($config:session-prefix || ".params")
let $timestamp := session:get-attribute($config:session-prefix || ".timestamp")
return
if (exists($cached) and exists($cachedParams) and deep-equal($params, $cachedParams) and exists($timestamp)) then
empty(xmldb:find-last-modified-since(collection($config:data-root), $timestamp))
else
false()
};
declare function capi:upload($request as map(*)) {
let $name := request:get-uploaded-file-name("files[]")
let $data := request:get-uploaded-file-data("files[]")
return
array { capi:upload($request?parameters?collection, $name, $data) }
};
declare %private function capi:upload($root, $paths, $payloads) {
for-each-pair($paths, $payloads, function($path, $data) {
let $path :=
if (ends-with($path, ".odd")) then
xmldb:store($config:odd-root, xmldb:encode($path), $data)
else
let $collectionPath := $config:data-root || "/" || $root
return
if (xmldb:collection-available($collectionPath)) then
if (ends-with($path, ".docx")) then
let $mediaPath := $config:data-root || "/" || $root || "/" || xmldb:encode($path) || ".media"
let $stored := xmldb:store($collectionPath, xmldb:encode($path), $data)
let $tei :=
docx:process($stored, $config:data-root, $pm-config:tei-transform(?, ?, "docx.odd"), $mediaPath)
let $teiDoc :=
document {
processing-instruction teipublisher {
$config:default-docx-pi
},
$tei
}
return
xmldb:store($collectionPath, xmldb:encode($path) || ".xml", $teiDoc)
else
xmldb:store($collectionPath, xmldb:encode($path), $data)
else
error($errors:NOT_FOUND, "Collection not found: " || $collectionPath)
let $log := console:log($data)
return
map {
"name": $path,
"path": substring-after($path, $config:data-root || "/" || $root),
"type": xmldb:get-mime-type($path),
"size": 93928
}
})
};
c4science · Help