Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

fix to C4::Koha::_isbn_cleanup

Browse source 
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:
Galen Charlton 2009-04-30 13:06:24 -05:00
parent 99dd5db699
commit 4d95af2968
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
C4/Koha.pm
View file

@ -1206,10 +1206,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
) {