http://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=10377 --- Comment #3 from Janusz Kaczmarek <januszop@gmail.com> --- How about something in this style: my $string = marc->subfield('100','a'); my $s100a08 = substr($string, 8, 1); my $s100a09_12 = substr($string, 9, 4); my $year_now = POSIX::strftime("%Y", localtime()); if ($s100a08 =~ /[abcdefghijku]/ && $s100a09_12 =~ /\d{4}/ && $s100a09_12 >= 1455 && $s100a09_12 <= $year_now + 1) { # +1 just in case the is a next year date on the document # keep the date as $s100a08 . $s100a09_12 } else { # don't care about pub date from 100 -- it does not make sense, try to reconstruct it from 210$d } -- You are receiving this mail because: You are watching all bug changes.