xquery version "1.0";
declare namespace util="http://exist-db.org/xquery/util";
declare namespace fn="http://exist-db.org/local-functions";
declare namespace i18n="http://apache.org/cocoon/i18n/2.1";
(: Create filter expression from query term, field and mode :)
declare function fn:filter-expr($record as xs:string) as xs:string
{
let $t := concat("'", $record, "'")
return
concat("@id &= ", $t)
};
(: Assemble the query string :)
declare function fn:build-query($record as xs:string, $entrylang as xs:string)
as xs:string
{
let $expr := fn:filter-expr($record),
$doc := concat('/db/ordbase/terms/SD-terms/terms-',$entrylang,'.xml')
return
concat("for $r in document('", $doc, "')//entry[",
$expr, "] return $r")
};
(: Modify the query results before display: :)
declare function fn:display($entrylang as xs:string, $hits as node()+)
as element()
{
let $entry := item-at($hits, 1),
$common := $entry/common,
$senses := $entry/senses
return
WARNING: There was an error with this request! Please check with the webmaster. Cause: No request record value.
else let $query := fn:build-query($record, $entrylang), $hits := util:eval( $query ) return if (empty($hits)) then (ERROR! Record {$record} not found!
,Your language: {$entrylang}
,Your request: {$record}
,Your search query:
Your search query: