die "Argument 'marcfile' must be specified\n" unless ($args{marcfile});
if (-r $args{marcfile}) {
$self->{twig} = XML::Twig->new;
- $self->{twig}->parsefile($args{marcfile});
- my @records = $self->{twig}->root->children;
- $self->{data}{recs} = \@records;
+ $self->{conf}{marc} = $args{marcfile};
} else {
die "Can't open marc file: $!\n";
}
sub parse_records {
my ($self) = @_;
- for my $record ( @{$self->{data}{recs}} ) {
+ $self->{twig}->parsefile( $self->{conf}{marc} );
+ for my $record ( $self->{twig}->root->children ) {
my @fields = $record->children;
for my $f (@fields)
- { $self->process_field($f) }
+ { $self->process_field($f); $f->purge }
# cleanup memory and increment pointer
$record->purge;
if ($map and $map->has($tag)) {
my @subs = $field->children('subfield');
for my $sub (@subs)
- { $self->process_subs($tag, $sub) }
+ { $self->process_subs($tag, $sub); $sub->purge }
}
}
my @fields = $record->children;
for my $f (@fields)
- { $self->process_field($f) }
+ { $self->process_field($f); $f->purge; }
# cleanup memory and increment pointer
$record->purge;
push @{$crec->{tmap}{$tag}}, (@{$crec->{tags}} - 1);
my @subs = $field->children('subfield');
for my $sub (@subs)
- { $self->process_subs($tag, $sub) }
- # check map to ensure all declared subs have a value
+ { $self->process_subs($tag, $sub); $sub->purge; }
+
+ # check map to ensure all declared tags and subs have a value
my $mods = $map->mods($field);
for my $mappedsub ( @{ $map->subfields($tag) } ) {
next if $mods->{multi};
$crec->{tags}[-1]{uni}{$mappedsub} = ''
unless defined $crec->{tags}[-1]{uni}{$mappedsub};
}
+ for my $mappedtag ( @{ $map->tags }) {
+ $crec->{tmap}{$mappedtag} = undef
+ unless defined $crec->{tmap}{$mappedtag};
+ }
}
}
# fetch our datafield struct and fieldname
my $dataf = $self->{data}{crec}{tags}[-1];
my $field = $map->field($tag, $code);
+ $self->{data}{crec}{names}{$tag}{$code} = $field;
# test filters
for my $filter ( @{$map->filters($field)} ) {
}
+=head2 recno
+
+Returns current record number (starting from zero)
+
+=cut
+
+sub recno { my ($self) = @_; return $self->{data}{rptr} }
+
+=head2 name
+
+Returns mapped fieldname when pass a tag and code
+
+ my $name = $m->name(999,'a');
+
+=cut
+
+sub name { my ($self, $t, $c) = @_; return $self->{data}{crec}{names}{$t}{$c} };
+
=head1 MODIFIERS
MapDrivenMARCXMLProc implements the following modifiers, and passes