From 1c8c72dc5c4f99e6eacd61c4ddbf96e835a79cf1 Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Wed, 10 Jun 2009 16:54:27 +0000 Subject: [PATCH 1/1] 1.002 if any instance of a sub has a value, that should now appear in detail sample output --- .../lib/Equinox/Migration/MARCXMLSampler.pm | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm b/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm index 682bd0d..1cd8b5c 100644 --- a/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm +++ b/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm @@ -13,11 +13,11 @@ Equinox::Migration::MARCXMLSampler =head1 VERSION -Version 1.001 +Version 1.002 =cut -our $VERSION = '1.001'; +our $VERSION = '1.002'; =head1 SYNOPSIS @@ -140,7 +140,7 @@ sub process_subs { # handle unmapped tag/subs my $samp = $self->{data}{samp}; # set a value, total-seen count and records-seen-in count - $samp->{$tag}{$code}{value} = $sub->text unless defined $samp->{$tag}{$code}; + $samp->{$tag}{$code}{value} = $sub->text unless $samp->{$tag}{$code}; $samp->{$tag}{$code}{count}++; $samp->{$tag}{$code}{tcnt}++ unless ( defined $samp->{$tag}{$code}{last} and $samp->{$tag}{$code}{last} == $self->{data}{tcnt} ); -- 1.7.2.5