iiif-out.xql

xquery version "3.1";

import module   namespace   iiif    = "http://www.salamanca.school/xquery/iiif"   at "modules/iiif.xqm";
import module   namespace   console = "http://exist-db.org/xquery/console";
declare         namespace   output  = "http://www.w3.org/2010/xslt-xquery-serialization";
declare         namespace   request = "http://exist-db.org/xquery/request";
declare         namespace   response = "http://exist-db.org/xquery/response";
declare         namespace   tei     = "http://www.tei-c.org/ns/1.0";

declare option output:method "json";
declare option output:media-type "application/json";


let $wid                :=  request:get-parameter('wid', '')
let $canvas             :=  request:get-parameter('canvas', '')
let $header-addition    :=  response:set-header("Access-Control-Allow-Origin", "*")
let $resource           :=  iiif:fetchResource($wid)
let $output             :=  
    if ($canvas) then
        let $sequence := array:get(map:get($resource, 'sequences'), 1)
        let $canvases := map:get($sequence, 'canvases')
        let $targetCanvases := array:filter($canvases, function($c){if (ends-with(map:get($c, '@id'), 'canvas/' || $canvas)) then true() else false()})
        return if (array:size($targetCanvases) eq 1) then array:get($targetCanvases, 1) else ()
    else $resource
return $output