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>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>

diff --git a/C4/Koha.pm b/C4/Koha.pm
index f0f6ce2..3589010 100644 (file)
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -1205,10 +1205,11 @@ sub _normalize_match_point {
 sub _isbn_cleanup ($) {
     my $normalized_isbn = shift;
     $normalized_isbn =~ s/-//g;
-    $normalized_isbn =~/([0-9]{1,})/;
+    $normalized_isbn =~/([0-9x]{1,})/i;
     $normalized_isbn = $1;
     if (
         $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{9}X)\b/i
     ) {