BEGIN {
use Exporter ();
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
- $VERSION = 0.21;
+ $VERSION = 0.22;
@ISA = qw (Exporter);
#Give a hoot don't pollute, do not export more than needed by default
@EXPORT = qw ();
read_fdt => 1,
include_deleted => 1,
hash_filter => sub {
- my $v = shift;
+ my ($v,$field_number) = @_;
$v =~ s#foo#bar#g;
},
debug => 1,
=item hash_filter
-Filter code ref which will be used before data is converted to hash.
+Filter code ref which will be used before data is converted to hash. It will
+receive two arguments, whole line from current field (in C<< $_[0] >>) and
+field number (in C<< $_[1] >>).
=item debug
=item join_subfields_with
Define delimiter which will be used to join repeatable subfields. You can
-specify option here instead in L</new> if you want to have per-record controll.
+specify option here instead in L</new> if you want to have per-record control.
=back
my $row = $self->fetch($mfn) || return;
- my $j_rs = $arg->{join_repeatable_subfields};
- $j_rs = $self->{join_repeatable_subfields} unless(defined($j_rs));
+ my $j_rs = $arg->{join_subfields_with};
+ $j_rs = $self->{join_subfields_with} unless(defined($j_rs));
my $i_sf = $arg->{include_subfields};
foreach my $f_nr (keys %{$row}) {
# filter output
if ($self->{'hash_filter'}) {
- $l = $self->{'hash_filter'}->($l);
+ $l = $self->{'hash_filter'}->($l, $f_nr);
next unless defined($l);
}
=over 8
+=item 0.22
+
+Added field number when calling C<hash_filter>
+
=item 0.21
Added C<join_subfields_with> to L</new> and L</to_hash>.
=head1 SEE ALSO
+L<Biblio::Isis::Manual> for CDS/ISIS manual appendix F, G and H which describe file format
+
OpenIsis web site L<http://www.openisis.org>
perl4lib site L<http://perl4lib.perl.org>