--- trunk/Fast.pm 2010/02/04 17:15:09 35 +++ trunk/Fast.pm 2010/09/23 12:24:38 36 @@ -311,14 +311,14 @@ 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 - $l = $self->{'hash_filter'}->($l, $rec_nr) if ($self->{'hash_filter'}); + $l = $self->{'hash_filter'}->($l, $tag) if ($self->{'hash_filter'}); my $val; @@ -351,7 +351,7 @@ $val = $l; } - push @{$rec->{$rec_nr}}, $val; + push @{$rec->{$tag}}, $val; } }