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

(-)a/C4/Biblio.pm (-4 / +3 lines)
Lines 2470-2478 sub _adjust_pubyear { Link Here
2470
             (?<year>\d)[-]?[.Xx?]{3}
2470
             (?<year>\d)[-]?[.Xx?]{3}
2471
            |(?<year>\d{2})[.Xx?]{2}
2471
            |(?<year>\d{2})[.Xx?]{2}
2472
            |(?<year>\d{3})[.Xx?]
2472
            |(?<year>\d{3})[.Xx?]
2473
            |(?<year>\d)[-]{3}\?
2473
            |(?<year>\d)[-]{1,3}\??
2474
            |(?<year>\d\d)[-]{2}\?
2474
            |(?<year>\d\d)[-]{1,2}\??
2475
            |(?<year>\d{3})[-]\?
2475
            |(?<year>\d{3})[-]\??
2476
    /xms ) { # the form 198-? occurred in Dutch ISBD rules
2476
    /xms ) { # the form 198-? occurred in Dutch ISBD rules
2477
        my $digits = $+{year};
2477
        my $digits = $+{year};
2478
        $retval = $digits * ( 10 ** ( 4 - length($digits) ));
2478
        $retval = $digits * ( 10 ** ( 4 - length($digits) ));
2479
- 

Return to bug 24674