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 |
- |
|
|