139 |
|
|
140 |
croak "new needs database name (isisdb) as argument!" unless ({@_}->{isisdb}); |
croak "new needs database name (isisdb) as argument!" unless ({@_}->{isisdb}); |
141 |
|
|
142 |
foreach my $v (qw{isisdb debug include_deleted hash_filter}) { |
foreach my $v (qw{isisdb debug include_deleted hash_filter join_subfields_with}) { |
143 |
$self->{$v} = {@_}->{$v}; |
$self->{$v} = {@_}->{$v} if defined({@_}->{$v}); |
144 |
} |
} |
145 |
|
|
146 |
my @isis_files = grep(/\.(FDT|MST|XRF|CNT)$/i,glob($self->{isisdb}."*")); |
my @isis_files = grep(/\.(FDT|MST|XRF|CNT)$/i,glob($self->{isisdb}."*")); |
576 |
|
|
577 |
my $row = $self->fetch($mfn) || return; |
my $row = $self->fetch($mfn) || return; |
578 |
|
|
579 |
my $j_rs = $arg->{join_subfields_with}; |
my $j_rs = $arg->{join_subfields_with} || $self->{join_subfields_with}; |
580 |
$j_rs = $self->{join_subfields_with} unless(defined($j_rs)); |
$j_rs = $self->{join_subfields_with} unless(defined($j_rs)); |
581 |
my $i_sf = $arg->{include_subfields}; |
my $i_sf = $arg->{include_subfields}; |
582 |
|
|
762 |
|
|
763 |
Added C<hash_filter> to L</to_hash> |
Added C<hash_filter> to L</to_hash> |
764 |
|
|
765 |
|
Fixed bug with documented C<join_subfields_with> in L</new> which wasn't |
766 |
|
implemented |
767 |
|
|
768 |
=item 0.22 |
=item 0.22 |
769 |
|
|
770 |
Added field number when calling C<hash_filter> |
Added field number when calling C<hash_filter> |