xquery version "1.0";
declare namespace util="http://exist-db.org/xquery/util";
declare namespace i18n="http://apache.org/cocoon/i18n/2.1";
(: Assemble the query string :)
declare function local:build-query($record as xs:string, $entrylang as xs:string)
as xs:string
{
let $doc := concat('/db/ordbase/terms/SD-terms/terms-',$entrylang,'.xml')
return
concat("for $r in document('", $doc, "')",
$record," return $r")
};
(: Modify the query results before display: :)
declare function local:display($entrylang as xs:string, $hits as node()+)
as element()
{
let $entry := item-at($hits, 1),
$common := $entry/common,
$senses := $entry/senses,
$id := $entry/@id,
$date := current-dateTime()
return
{$common}
{
for $s in $entry/senses/sense
let $status := $s/@status
order by $status
return
{
if ( $s/def ) then
$s/def
else (),
if ( $s/synonyms ) then
$s/synonyms
else ()
}
}
};
(: Main function - retrieves some request attributes,
forks further processing to other defined functions depending
on the retrieved values :)
declare function local:main() as element()+
{
let $entrylang := request:request-parameter("entrylang", ""),
$request := request:request-parameter("request", "")
return
if(string-length($request) = 0) then
This functionality is not yet in place.
else
let $query := local:build-query($request, $entrylang),
$hits := util:eval( $query )
return
if (empty($hits)) then
This functionality is not yet in place.
else
This functionality is not yet in place.
};
{ let $start := util:system-time() return
(
local:main(),
Søket tok
{ seconds-from-duration(util:system-time()-$start) }
sekund.
)
}