From c81f2457d0245e3c679094d1426ff4f10d930cb0 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Wed, 11 Sep 2019 16:32:23 -0400 Subject: [PATCH] ISBN variations sanity checks Signed-off-by: Bill Erickson --- Open-ILS/src/perlmods/lib/OpenILS/Elastic/Bib/Search.pm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Elastic/Bib/Search.pm b/Open-ILS/src/perlmods/lib/OpenILS/Elastic/Bib/Search.pm index 9a08ecce7b..7dfcebf65a 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Elastic/Bib/Search.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Elastic/Bib/Search.pm @@ -342,10 +342,14 @@ sub index_isbns { for my $token (split(/ /, $value)) { my $isbn = Business::ISBN->new($token); if ($isbn && $isbn->is_valid) { - $seen{$isbn->as_isbn10->isbn} = 1; - $seen{$isbn->as_isbn10->as_string} = 1; - $seen{$isbn->as_isbn13->isbn} = 1; - $seen{$isbn->as_isbn13->as_string} = 1; + if ($isbn->as_isbn10) { + $seen{$isbn->as_isbn10->isbn} = 1; + $seen{$isbn->as_isbn10->as_string} = 1; + } + if ($isbn->as_isbn13) { + $seen{$isbn->as_isbn13->isbn} = 1; + $seen{$isbn->as_isbn13->as_string} = 1; + } } } -- 2.11.0