/[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 67 by dpavlin, Fri Aug 25 16:35:47 2006 UTC revision 69 by dpavlin, Sun Oct 29 15:37:43 2006 UTC
# Line 139  sub new { Line 139  sub new {
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}."*"));
# Line 576  sub to_hash { Line 576  sub to_hash {
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    
# Line 762  older versions if you really have to): Line 762  older versions if you really have to):
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>

Legend:
Removed from v.67  
changed lines
  Added in v.69

  ViewVC Help
Powered by ViewVC 1.1.26