LP1559281: Allow Baker and Taylor ISBNs

For Content Cafe, 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/ContentCafe.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent/ContentCafe.pm
index 4dd5b0c..36f63aa 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent/ContentCafe.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent/ContentCafe.pm
@@ -9,6 +9,9 @@ use XML::LibXML;
 use MIME::Base64;
 use DateTime;
 
+# Hack country_data to allow B&T fake ISBNs
+$Business::ISBN::country_data{631} = ['B&T' => ['0000000' => '9999999']];
+
 my $AC = 'OpenILS::WWW::AddedContent';
 
 my $post_url = 'http://contentcafe2.btol.com/ContentCafe/ContentCafe.asmx/XmlPost';