From 248eb6453f21fac2e4c5e3a603da886ef679c5d1 Mon Sep 17 00:00:00 2001
From: Peter Stadler <stadlerpeter@yahoo.fr>
Date: Fri, 10 Jan 2025 09:31:59 +0100
Subject: [PATCH] some minor refactoring
---
add/data/xqm/source.xqm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/add/data/xqm/source.xqm b/add/data/xqm/source.xqm
index 58744f45e..f12414aa2 100644
--- a/add/data/xqm/source.xqm
+++ b/add/data/xqm/source.xqm
@@ -70,7 +70,7 @@ declare function source:getLabels($sources as xs:string*, $edition as xs:string)
:)
declare function source:getLabel($source as xs:string, $edition as xs:string) as xs:string {
- let $sourceDoc := doc($source)
+ let $sourceDoc := eutil:getDoc($source)
let $language := eutil:getLanguage($edition)
let $label :=
@@ -85,7 +85,7 @@ declare function source:getLabel($source as xs:string, $edition as xs:string) as
if($label) then
($label)
else
- (doc($source)//mei:meiHead/mei:fileDesc/mei:titleStmt/mei:title[not(@xml:lang) or @xml:lang = $language])
+ ($sourceDoc//mei:meiHead/mei:fileDesc/mei:titleStmt/mei:title[not(@xml:lang) or @xml:lang = $language])
let $label :=
if($label) then
@@ -112,7 +112,7 @@ declare function source:getSigla($sources as xs:string*) as xs:string {
};
(:~
- : Returns an array of source sigla
+ : Returns a sequence of source sigla
:
: @param $sources The URIs of the Sources' documents to process
: @return The sigla
@@ -133,7 +133,7 @@ declare function source:getSiglaAsArray($sources as xs:string*) as xs:string* {
:)
declare function source:getSiglum($source as xs:string) as xs:string? {
- let $doc := doc($source)
+ let $doc := eutil:getDoc($source)
let $elems := $doc//mei:*[@type eq 'siglum']
return
if(exists($elems))
--
GitLab