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

(-)a/C4/Biblio.pm (-7 / +9 lines)
Lines 2700-2711 sub _adjust_pubyear { Link Here
2700
        $retval = $1;
2700
        $retval = $1;
2701
    } elsif( $retval =~ m/(\d\d\d\d)/ && $1 > 0 ) {
2701
    } elsif( $retval =~ m/(\d\d\d\d)/ && $1 > 0 ) {
2702
        $retval = $1;
2702
        $retval = $1;
2703
    } elsif( $retval =~ m/(\d)[.Xx?]{3}|(\d\d)[.Xx?]{2}|(\d{3})[.Xx?]/ ) {
2703
    } elsif( $retval =~ m/
2704
        my $digits = $1 || $2 || $3;
2704
             (?<year>\d)[-]?[.Xx?]{3}
2705
        $retval = $digits * ( 10 ** ( 4 - length($digits) ));
2705
            |(?<year>\d{2})[.Xx?]{2}
2706
    } elsif( $retval =~ m/(\d)[-]{3}\?|(\d\d)[-]{2}\?|(\d{3})[-]\?/ ) {
2706
            |(?<year>\d{3})[.Xx?]
2707
        # the form 198-? occurred in Dutch ISBD rules
2707
            |(?<year>\d)[-]{3}\?
2708
        my $digits = $1 || $2 || $3;
2708
            |(?<year>\d\d)[-]{2}\?
2709
            |(?<year>\d{3})[-]\?
2710
    /xms ) { # the form 198-? occurred in Dutch ISBD rules
2711
        my $digits = $+{year};
2709
        $retval = $digits * ( 10 ** ( 4 - length($digits) ));
2712
        $retval = $digits * ( 10 ** ( 4 - length($digits) ));
2710
    }
2713
    }
2711
    return $retval;
2714
    return $retval;
2712
- 

Return to bug 11046