Bug 4305 - prevent errors when handling invalid ISBN13 values

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/C4/Koha.pm b/C4/Koha.pm
index ab9131a..dc2bcfa 100644 (file)
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -1330,6 +1330,7 @@ sub _isbn_cleanup ($) {
     my $isbn = Business::ISBN->new( shift );
     return undef unless $isbn;
     $isbn = $isbn->as_isbn10 if $isbn->type eq 'ISBN13';
+    return undef unless $isbn;
     $isbn = $isbn->as_string;
     $isbn =~ s/-//g;
     return $isbn;