@@ -, +, @@ --- C4/Koha.pm | 6 +++++- 1 files changed, 5 insertions(+), 1 deletions(-) --- a/C4/Koha.pm +++ a/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 }) ); --