From: Bill Erickson <berickxx@gmail.com>
Date: Wed, 11 Sep 2019 20:32:23 +0000 (-0400)
Subject: ISBN variations sanity checks
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=17bf39935b8510c8e5ef466e68b816e73d5431e3;p=working%2FEvergreen.git

ISBN variations sanity checks

Signed-off-by: Bill Erickson <berickxx@gmail.com>
---

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;
+            }
         }
     }