/[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 58 by dpavlin, Sun Jul 9 12:18:44 2006 UTC revision 65 by dpavlin, Thu Jul 13 13:34:30 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;
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 114  Don't skip logically deleted records in Line 114  Don't skip logically deleted records in
114    
115  =item hash_filter  =item hash_filter
116    
117  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
118    receive two arguments, whole line from current field (in C<< $_[0] >>) and
119    field number (in C<< $_[1] >>).
120    
121  =item debug  =item debug
122    
# Line 576  sub to_hash { Line 578  sub to_hash {
578    
579                          # filter output                          # filter output
580                          if ($self->{'hash_filter'}) {                          if ($self->{'hash_filter'}) {
581                                  $l = $self->{'hash_filter'}->($l);                                  $l = $self->{'hash_filter'}->($l, $f_nr);
582                                  next unless defined($l);                                  next unless defined($l);
583                          }                          }
584    
# Line 751  older versions if you really have to): Line 753  older versions if you really have to):
753    
754  =over 8  =over 8
755    
756    =item 0.22
757    
758    Added field number when calling C<hash_filter>
759    
760  =item 0.21  =item 0.21
761    
762  Added C<join_subfields_with> to L</new> and L</to_hash>.  Added C<join_subfields_with> to L</new> and L</to_hash>.
# Line 785  LICENSE file included with this module. Line 791  LICENSE file included with this module.
791    
792  =head1 SEE ALSO  =head1 SEE ALSO
793    
794    L<Biblio::Isis::Manual> for CDS/ISIS manual appendix F, G and H which describe file format
795    
796  OpenIsis web site L<http://www.openisis.org>  OpenIsis web site L<http://www.openisis.org>
797    
798  perl4lib site L<http://perl4lib.perl.org>  perl4lib site L<http://perl4lib.perl.org>
Legend:
Removed from v.58  
changed lines
  Added in v.65
  ViewVC Help
Powered by ViewVC 1.1.26