LP#1302207 - Attempt to validate ISBNs in AddedContent.pm. collab/dyrcona/lp1302207_ac_isbn_fixups
authorJason Stephenson <jstephenson@mvlc.org>
Wed, 9 Jul 2014 20:34:26 +0000 (16:34 -0400)
committerJason Stephenson <jstephenson@mvlc.org>
Wed, 23 Jul 2014 13:53:14 +0000 (09:53 -0400)
commit9f58497e1e23271c2cee6cbf55aa4252f766d47e
tree4ce4e285b496e09966eeafdb5ad9b6d51d0a9d2e
parent822690d4c94db84ac76d44d6dda854e25204fda5
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>
Open-ILS/src/perlmods/lib/OpenILS/WWW/AddedContent.pm