From 18739e419e7194607ad6176417e13d638af0a6f2 Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Wed, 24 Jun 2009 19:20:17 +0000 Subject: [PATCH 1/1] making sampling work better --- .../lib/Equinox/Migration/MARCXMLSampler.pm | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm b/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm index 26d75ac..d7aff09 100644 --- a/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm +++ b/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm @@ -142,7 +142,8 @@ sub process_subs { # handle unmapped tag/subs my $samp = $dstore->{samp}; # set a value, total-seen count and records-seen-in count - $samp->{$tag}{$code}{value} = $sub->text unless $samp->{$tag}{$code}; + $samp->{$tag}{$code}{value} = $sub->text unless ($samp->{$tag}{$code}{value} and + $samp->{$tag}{$code}{value} =~ /\w/); $samp->{$tag}{$code}{count}++; $samp->{$tag}{$code}{tcnt}++ unless ( defined $samp->{$tag}{$code}{last} and $samp->{$tag}{$code}{last} == $dstore->{tcnt} ); -- 1.7.2.5