fix to C4::Koha::_isbn_cleanup
Both valid ISBN-10s and -13s can use 'X' as a checkdigit value. Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
parent
99dd5db699
commit
4d95af2968
1 changed files with 2 additions and 1 deletions
|
@ -1206,10 +1206,11 @@ sub _normalize_match_point {
|
||||||
sub _isbn_cleanup ($) {
|
sub _isbn_cleanup ($) {
|
||||||
my $normalized_isbn = shift;
|
my $normalized_isbn = shift;
|
||||||
$normalized_isbn =~ s/-//g;
|
$normalized_isbn =~ s/-//g;
|
||||||
$normalized_isbn =~/([0-9]{1,})/;
|
$normalized_isbn =~/([0-9x]{1,})/i;
|
||||||
$normalized_isbn = $1;
|
$normalized_isbn = $1;
|
||||||
if (
|
if (
|
||||||
$normalized_isbn =~ /\b(\d{13})\b/ or
|
$normalized_isbn =~ /\b(\d{13})\b/ or
|
||||||
|
$normalized_isbn =~ /\b(\d{12})\b/i or
|
||||||
$normalized_isbn =~ /\b(\d{10})\b/ or
|
$normalized_isbn =~ /\b(\d{10})\b/ or
|
||||||
$normalized_isbn =~ /\b(\d{9}X)\b/i
|
$normalized_isbn =~ /\b(\d{9}X)\b/i
|
||||||
) {
|
) {
|
||||||
|
|
Loading…
Reference in a new issue