projects
/
MARC-Fast
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use file from $marc_file variable
[MARC-Fast]
/
Fast.pm
diff --git
a/Fast.pm
b/Fast.pm
index
6485b55
..
aef3d5b
100644
(file)
--- a/
Fast.pm
+++ b/
Fast.pm
@@
-7,7
+7,7
@@
use Data::Dump qw/dump/;
BEGIN {
use Exporter ();
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
BEGIN {
use Exporter ();
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
- $VERSION = 0.
09
;
+ $VERSION = 0.
10
;
@ISA = qw (Exporter);
#Give a hoot don't pollute, do not export more than needed by default
@EXPORT = qw ();
@ISA = qw (Exporter);
#Give a hoot don't pollute, do not export more than needed by default
@EXPORT = qw ();
@@
-311,14
+311,14
@@
sub to_hash {
my $row = $self->fetch($mfn) || return;
my $row = $self->fetch($mfn) || return;
- foreach my $
rec_nr
(keys %{$row}) {
- foreach my $l (@{$row->{$
rec_nr
}}) {
+ foreach my $
tag
(keys %{$row}) {
+ foreach my $l (@{$row->{$
tag
}}) {
# remove end marker
$l =~ s/\x1E$//;
# filter output
# remove end marker
$l =~ s/\x1E$//;
# filter output
- $l = $self->{'hash_filter'}->($l, $
rec_nr
) if ($self->{'hash_filter'});
+ $l = $self->{'hash_filter'}->($l, $
tag
) if ($self->{'hash_filter'});
my $val;
my $val;
@@
-351,7
+351,7
@@
sub to_hash {
$val = $l;
}
$val = $l;
}
- push @{$rec->{$
rec_nr
}}, $val;
+ push @{$rec->{$
tag
}}, $val;
}
}
}
}