XQuery/Image Library
< XQuery
Motivation
[edit | edit source]You want a script that will display a small thumbnail of all the images in an image collection. The images may have many file suffixes (jpg, png, gif etc).
Method
[edit | edit source]We will write an XQuery that finds all the child resources in the collection that have the correct file types.
Source Code
[edit | edit source]xquery version "1.0";
declare option exist:serialize "method=xhtml media-type=text/html";
(: look for the collection parameter in the incoming URL. If not assume a default collection like /db/images. :)
let $collection := request:get-parameter('collection', '/db/images')
(: you can also change the number of images per row :)
let $images-per-row := xs:integer(request:get-parameter('images-per-row', 10))
(: first get all the files in the collection :)
let $all-files := xmldb:get-child-resources($collection)
(: now just get the files with known image file type extensions :)
let $image-files :=
for $file in $all-files[
ends-with(.,'.png') or
ends-with(.,'.jpg') or
ends-with(.,'.tiff') or
ends-with(.,'.gif')]
return $file
let $image-count := count($image-files)
let $rows-count := xs:integer(ceiling($image-count div $images-per-row))
return
<html>
<head>
<title>Images for collection {$collection}</title>
</head>
<body>
Images in collection: {$collection}
<table>{
for $row in (1 to $rows-count)
return
<tr>{
for $col in (1 to $images-per-row)
let $n := ($row - 1 ) * $images-per-row + $col
return
if ($n <= $image-count)
then
let $image := $image-files[position() = $n ]
let $path := concat('/exist/rest', $collection, '/', $image)
return
<td>
<a href="{$path}"><img src="{$path}" height="100px" width="100px"/></a>
</td>
else <td/> (: blank cells at the end of the last row :)
}</tr>
}</table>
</body>
</html>