From fce797b197d0c08d4d069bb83279ac27221edefc Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Wed, 16 Apr 2014 11:03:54 -0400 Subject: [PATCH] [PASSED QA] Bug 10500 [QA Followup] - Add checks for empty isbn Signed-off-by: Martin Renvoize --- C4/Koha.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/C4/Koha.pm b/C4/Koha.pm index 3d4672d..2479b9d 100644 --- a/C4/Koha.pm +++ b/C4/Koha.pm @@ -1484,7 +1484,7 @@ sub _isbn_cleanup { format => 'ISBN-10', strip_hyphens => 1, } - ); + ) if $isbn; } =head2 NormalizedISBN @@ -1511,6 +1511,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 ) { @@ -1548,6 +1550,8 @@ sub NormalizeISBN { sub GetVariationsOfISBN { my ($isbn) = @_; + return unless $isbn; + my @isbns; push( @isbns, NormalizeISBN({ isbn => $isbn }) ); -- 1.7.10.4