LP#1302207 - Attempt to validate ISBNs in AddedContent.pm.
authorJason Stephenson <jstephenson@mvlc.org>
Wed, 9 Jul 2014 20:34:26 +0000 (16:34 -0400)
committerBen Shum <bshum@biblio.org>
Thu, 7 Aug 2014 15:08:16 +0000 (11:08 -0400)
commit5b391779a8bf412218aaf739df44f602100d45e0
treed6b46fdfe259cfc6922c838f20aa1ac3d4a12e8e
parent7ee76a847de48469da23a381b4f8d1aedbdbcc5e
LP#1302207 - Attempt to validate ISBNs in AddedContent.pm.

When getting ISBNs from the database, they often contain extra stuff
after the ISBN that sometimes causes problems for Business::ISBN.

This commit attempts to resolve some of that by looking only for the
part of the ISBN data that resembles an ISBN and using just that part.
If the ISBN data doesn't look like an ISBN, then it is discarded.

Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>
Signed-off-by: Ben Shum <bshum@biblio.org>
Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm