/[Biblio-Isis]/trunk/lib/Biblio/Isis.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Biblio/Isis.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 57 by dpavlin, Sun Jul 9 12:12:57 2006 UTC revision 64 by dpavlin, Thu Jul 13 13:27:27 2006 UTC
# Line 7  use File::Glob qw(:globally :nocase); Line 7  use File::Glob qw(:globally :nocase);
7  BEGIN {  BEGIN {
8          use Exporter ();          use Exporter ();
9          use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);          use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
10          $VERSION     = 0.21;          $VERSION     = 0.22_2;
11          @ISA         = qw (Exporter);          @ISA         = qw (Exporter);
12          #Give a hoot don't pollute, do not export more than needed by default          #Give a hoot don't pollute, do not export more than needed by default
13          @EXPORT      = qw ();          @EXPORT      = qw ();
# Line 84  Open ISIS database Line 84  Open ISIS database
84          read_fdt => 1,          read_fdt => 1,
85          include_deleted => 1,          include_deleted => 1,
86          hash_filter => sub {          hash_filter => sub {
87                  my $v = shift;                  my ($v,$field_number) = @_;
88                  $v =~ s#foo#bar#g;                  $v =~ s#foo#bar#g;
89          },          },
90          debug => 1,          debug => 1,
# Line 544  have original record subfield order and Line 544  have original record subfield order and
544  =item join_subfields_with  =item join_subfields_with
545    
546  Define delimiter which will be used to join repeatable subfields. You can  Define delimiter which will be used to join repeatable subfields. You can
547  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.
548    
549  =back  =back
550    
# Line 567  sub to_hash { Line 567  sub to_hash {
567    
568          my $row = $self->fetch($mfn) || return;          my $row = $self->fetch($mfn) || return;
569    
570          my $j_rs = $arg->{join_repeatable_subfields};          my $j_rs = $arg->{join_subfields_with};
571          $j_rs = $self->{join_repeatable_subfields} unless(defined($j_rs));          $j_rs = $self->{join_subfields_with} unless(defined($j_rs));
572          my $i_sf = $arg->{include_subfields};          my $i_sf = $arg->{include_subfields};
573    
574          foreach my $f_nr (keys %{$row}) {          foreach my $f_nr (keys %{$row}) {
# Line 576  sub to_hash { Line 576  sub to_hash {
576    
577                          # filter output                          # filter output
578                          if ($self->{'hash_filter'}) {                          if ($self->{'hash_filter'}) {
579                                  $l = $self->{'hash_filter'}->($l);                                  $l = $self->{'hash_filter'}->($l, $f_nr);
580                                  next unless defined($l);                                  next unless defined($l);
581                          }                          }
582    
# Line 785  LICENSE file included with this module. Line 785  LICENSE file included with this module.
785    
786  =head1 SEE ALSO  =head1 SEE ALSO
787    
788    L<Biblio::Isis::Manual> for CDS/ISIS manual appendix F, G and H which describe file format
789    
790  OpenIsis web site L<http://www.openisis.org>  OpenIsis web site L<http://www.openisis.org>
791    
792  perl4lib site L<http://perl4lib.perl.org>  perl4lib site L<http://perl4lib.perl.org>
Legend:
Removed from v.57  
changed lines
  Added in v.64
  ViewVC Help
Powered by ViewVC 1.1.26