From: Shawn Boyette Date: Tue, 5 May 2009 15:12:05 +0000 (+0000) Subject: misc X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=92480d2b668d7ddd2237cca8d4d6c20f5f2e43f9 misc --- diff --git a/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm b/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm index e32b000..1fbfefe 100644 --- a/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm +++ b/Equinox-Migration/lib/Equinox/Migration/MARCXMLSampler.pm @@ -139,6 +139,7 @@ sub process_subs { $samp->{$tag}{$code}{rcnt}++ unless ( defined $samp->{$tag}{$code}{last} and $samp->{$tag}{$code}{last} == $self->{data}{rcnt} ); $samp->{$tag}{$code}{last} = $self->{data}{rcnt}; + #FIXME tcnt not rcnt } diff --git a/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm b/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm index be96f46..805d70c 100644 --- a/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm +++ b/Equinox-Migration/lib/Equinox/Migration/MapDrivenMARCXMLProc.pm @@ -45,6 +45,7 @@ sub new { my ($class, %args) = @_; my $self = bless { mods => { multi => {}, + bib => {}, required => {}, }, data => { recs => undef, # X::T record objects