From a3f884e1755cc918dc61a585b6c07ebcad21afb5 Mon Sep 17 00:00:00 2001 From: Janusz Kaczmarek Date: Mon, 17 Feb 2020 12:58:46 +0100 Subject: [PATCH] Bug 24674: Uncertain years for publicationyear/copyrightdate -- corrected This is a correction to Bug 11046: YYY-, YY--, Y---, are also correct according to ISBD: uncertain year, but certain decade/century (cf. n. 4.3.8 in ISBD Consolidated Edition of 2011). (Question mark is not mandatory.) In addition, in Poland a form with one only dash is quite common, like YY- (== YY--). --- C4/Biblio.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/C4/Biblio.pm b/C4/Biblio.pm index aa401d5646..3d1115bd76 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -2490,9 +2490,9 @@ sub _adjust_pubyear { (?\d)[-]?[.Xx?]{3} |(?\d{2})[.Xx?]{2} |(?\d{3})[.Xx?] - |(?\d)[-]{3}\? - |(?\d\d)[-]{2}\? - |(?\d{3})[-]\? + |(?\d)[-]{1,3}\?? + |(?\d\d)[-]{1,2}\?? + |(?\d{3})[-]\?? /xms ) { # the form 198-? occurred in Dutch ISBD rules my $digits = $+{year}; $retval = $digits * ( 10 ** ( 4 - length($digits) )); -- 2.11.0