From: Thomas Berezansky <tsbere@mvlc.org>
Date: Mon, 21 Mar 2016 16:07:14 +0000 (-0400)
Subject: LP1559281: Allow Baker and Taylor ISBNs
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=f8a6dea936d6141961c55528a5d3c68eb5b86b1d;p=working%2FEvergreen.git

LP1559281: Allow Baker and Taylor ISBNs

Jam a B&T entry into the hash so that Business::ISBN doesn't register them as
invalid prefix ISBNs.

Signed-off-by: Thomas Berezansky <tsbere@mvlc.org>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm
index 254d790cf6..713e96700e 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm
@@ -23,6 +23,9 @@ use MIME::Base64;
 use Business::ISBN;
 use Business::ISSN;
 
+# Hack country_data to allow B&T fake ISBNs
+$Business::ISBN::country_data{631} = ['B&T' => ['0000000' => '9999999']];
+
 my $AC = __PACKAGE__;