From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Wed, 16 Apr 2014 15:03:54 +0000 (-0400)
Subject: Bug 10500: (follow-up) add checks for empty isbn
X-Git-Tag: v3.16.00-beta~17
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;h=8d5d319f6258e1356860663410329ada72daef60;p=koha_fer

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 062a98f96a..5988249ae0 100644
--- 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 }) );