From: Ben Ostrowsky <ben@esilibrary.com>
Date: Thu, 5 May 2011 16:45:50 +0000 (+0000)
Subject: Avoiding error message about non-numeric comparison; reporting on tags that are not... 
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=f8a5c38dcbd897644719faafb801a781975b5c8d

Avoiding error message about non-numeric comparison; reporting on tags that are not strictly numeric
---

diff --git a/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm b/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm
index d7aff09..57098a0 100644
--- a/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm
+++ b/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm
@@ -117,7 +117,7 @@ sub parse_record {
 sub process_field {
     my ($field) = @_;
     my $tag = $field->{'att'}->{'tag'};
-    return unless ($tag and $tag > 9);
+    return unless ($tag and ($tag =~ /[^0-9]/ or $tag > 9));
 
     # increment raw tag count
     $dstore->{tcnt}++;