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

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

Return to bug 24674