View | Details | Raw Unified | Return to bug 24674
Collapse All | Expand All

(-)a/C4/Biblio.pm (-4 / +3 lines)
Lines 2490-2498 sub _adjust_pubyear { Link Here
2490
             (?<year>\d)[-]?[.Xx?]{3}
2490
             (?<year>\d)[-]?[.Xx?]{3}
2491
            |(?<year>\d{2})[.Xx?]{2}
2491
            |(?<year>\d{2})[.Xx?]{2}
2492
            |(?<year>\d{3})[.Xx?]
2492
            |(?<year>\d{3})[.Xx?]
2493
            |(?<year>\d)[-]{3}\?
2493
            |(?<year>\d)[-]{3}\??
2494
            |(?<year>\d\d)[-]{2}\?
2494
            |(?<year>\d\d)[-]{2}\??
2495
            |(?<year>\d{3})[-]\?
2495
            |(?<year>\d{3})[-]\??
2496
    /xms ) { # the form 198-? occurred in Dutch ISBD rules
2496
    /xms ) { # the form 198-? occurred in Dutch ISBD rules
2497
        my $digits = $+{year};
2497
        my $digits = $+{year};
2498
        $retval = $digits * ( 10 ** ( 4 - length($digits) ));
2498
        $retval = $digits * ( 10 ** ( 4 - length($digits) ));
2499
- 

Return to bug 24674