From 413da5bc30d154e9c14383241bff59f70bac757f Mon Sep 17 00:00:00 2001
From: Jakob Schmidt <jakob.w.schmidt@hu-berlin.de>
Date: Tue, 9 Jan 2018 00:18:49 +0100
Subject: [PATCH] =?UTF-8?q?Restriktion=20auf=20tei:date=20bei=20date:print?=
=?UTF-8?q?Date=20entfernt=20(bspw=20f=C3=BCr=20tei:change)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
xquery/date.xqm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/xquery/date.xqm b/xquery/date.xqm
index a17e344..c5ff96a 100755
--- a/xquery/date.xqm
+++ b/xquery/date.xqm
@@ -103,7 +103,7 @@ declare function date:format-date($date as xs:date, $picture as xs:string, $lang
: @param $get-language-string a callback function that is expected to return a localized string for a given term
: @return text
:)
-declare function date:printDate($date as element(tei:date)?, $lang as xs:string, $get-language-string as function(xs:string, xs:string*) as xs:string, $get-picture-string as function(empty()) as xs:string) as xs:string? {
+declare function date:printDate($date as element()?, $lang as xs:string, $get-language-string as function(xs:string, xs:string*) as xs:string, $get-picture-string as function(empty()) as xs:string) as xs:string? {
if($date) then (
let $picture-string := $get-picture-string() (: if($lang = 'de') then '[D]. [MNn] [Y]' else '[MNn] [D], [Y]':)
let $notBefore := if($date/@notBefore) then date:getCastableDate(data($date/@notBefore),false()) else()
--
GitLab