From 17ee9d5d5a457fa2548ade339befbd04de5b5e01 Mon Sep 17 00:00:00 2001
From: Peter Stadler <stadlerpeter@yahoo.fr>
Date: Thu, 16 Jan 2025 08:57:15 +0100
Subject: [PATCH] refactor `teitext:getLabel#2`
to make use of the canonical function `eutil:getLocalizedTitle#2`
---
add/data/xqm/teitext.xqm | 6 ++----
1 file changed, 2 insertions(+), 4 deletions(-)
diff --git a/add/data/xqm/teitext.xqm b/add/data/xqm/teitext.xqm
index 407a356be..59cb7fb47 100644
--- a/add/data/xqm/teitext.xqm
+++ b/add/data/xqm/teitext.xqm
@@ -28,7 +28,7 @@ declare namespace tei="http://www.tei-c.org/ns/1.0";
:)
declare function teitext:isText($uri as xs:string) as xs:boolean {
- exists(doc($uri)/tei:TEI)
+ exists(eutil:getDoc($uri)/tei:TEI)
};
@@ -40,8 +40,6 @@ declare function teitext:isText($uri as xs:string) as xs:boolean {
:)
declare function teitext:getLabel($uri as xs:string, $edition as xs:string) as xs:string {
- let $language := eutil:getLanguage($edition)
-
- return doc($uri)//tei:titleStmt/data(tei:title[not(@xml:lang) or @xml:lang = $language])
+ eutil:getLocalizedTitle(eutil:getDoc($uri), eutil:getLanguage($edition))
};
--
GitLab