Bug 10500: (follow-up) add checks for empty isbn

Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/C4/Koha.pm b/C4/Koha.pm
index 062a98f..5988249 100644 (file)
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -1564,7 +1564,7 @@ sub _isbn_cleanup {
             format        => 'ISBN-10',
             strip_hyphens => 1,
         }
-    );
+    ) if $isbn;
 }
 
 =head2 NormalizedISBN
@@ -1591,6 +1591,8 @@ sub NormalizeISBN {
     my $strip_hyphens = $params->{strip_hyphens};
     my $format        = $params->{format};
 
+    return unless $string;
+
     my $isbn = Business::ISBN->new($string);
 
     if ( $isbn && $isbn->error != Business::ISBN::BAD_ISBN ) {
@@ -1628,6 +1630,8 @@ sub NormalizeISBN {
 sub GetVariationsOfISBN {
     my ($isbn) = @_;
 
+    return unless $isbn;
+
     my @isbns;
 
     push( @isbns, NormalizeISBN({ isbn => $isbn }) );