[open-ils-commits] r19384 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Utils (dbwells)

[svn at svn.open-ils.org]

Author: dbwells
Date: 2011-02-04 13:53:11 -0500 (Fri, 04 Feb 2011)
New Revision: 19384

Modified:
   branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
Log:
Fix ModsParser.pm bug involving invalid ISBNs.  See bug #697398.


Modified: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm	2011-02-04 18:51:45 UTC (rev 19383)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Utils/ModsParser.pm	2011-02-04 18:53:11 UTC (rev 19384)
@@ -16,7 +16,7 @@
 
 # ----------------------------------------------------------------------------------------
 # XPATH for extracting info from a MODS doc
-my $isbn_xpath			= "//mods:mods/mods:identifier[\@type='isbn']";
+my $isbn_xpath			= "//mods:mods/mods:identifier[\@type='isbn' and not(\@invalid)]";
 my $resource_xpath	= "//mods:mods/mods:typeOfResource";
 my $pub_xpath			= "//mods:mods/mods:originInfo//mods:dateIssued[\@encoding='marc']|" . 
 								"//mods:mods/mods:originInfo//mods:dateIssued[1]";