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";
declare function fn:get-doc($lang as xs:string) as xs:string
{
let $doc := concat('/db/ordbase/terms/SD-terms/terms-',$lang,'.xml')
return $doc
};
(: Save an edited entry, the grammar part common to all senses: :)
declare function fn:saveentry() as element()
{
let $id := request:request-parameter("id", ""),
$lang := request:request-parameter("lang", ""),
$entry := request:request-parameter("entry", ""),
$pos := request:request-parameter("pos", ""),
$orth := request:request-parameter("orthstatus", ""),
$checked := request:request-parameter("commonchecked", ""),
$inflmajor := request:request-parameter("inflmajor", ""),
$inflminor := request:request-parameter("inflminor", ""),
$inflexmpl := request:request-parameter("inflexmpl", "")
let $user := request:get-session-attribute("user") ,
$pass := request:get-session-attribute("password"),
$coll := "/db/ordbase/terms/SD-terms",
$doc := fn:get-doc($lang),
$db := concat('xmldb:exist://',$coll)
let $checkeddate := if ($checked eq "true") then
current-date()
else ()
let $paramters := request:parameter-names()
(: $collection should refer to the collection, not the
document in the collecion! :)
let $collection := xmldb:collection( $db, $user, $pass)
(: The document reference needs to include the collection
path even though it is given in the $collection argument in
the xmldb:update command (below). :)
let $xupdate :=
Parameter: {$paramters}
Database: {$db}
ID: {$id}
Oppslag: {$entry}
XUpdate: {$xupdate}
Result: {$dummy}
Lagra!
WARNING: There was an error with this request! Please check with the webmaster. Cause: No request record value.
else let $query := fn:build-query($entry, $entrylang), $saveresult := if ($inputtype = 'savecommon') then fn:saveentry() elseNothing saved!
, $hits := util:eval( $query ) return if (empty($hits)) then (ERROR! Record {$record} not found!
,Your language: {$entrylang}
,Your request: {$record}
,Your entry: {$entry}
,Your search query:
Your search query:
The input type: {$inputtype}
,The save result: {$saveresult}
, :) fn:display($entrylang, $hits) ) };Søket tok { seconds-from-duration(current-time()-$start) } sekund.
) }