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 254d790..713e967 100644 (file)
--- 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__;