/[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 66 by dpavlin, Fri Aug 25 10:20:58 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 599  sub to_hash { Line 599  sub to_hash {
599                                          next if (! $t);                                          next if (! $t);
600                                          my ($sf,$v) = (substr($t,0,1), substr($t,1));                                          my ($sf,$v) = (substr($t,0,1), substr($t,1));
601                                          # XXX this might be option, but why?                                          # XXX this might be option, but why?
602                                          next unless ($v);                                          next unless (defined($v) && $v ne '');
603  #                                       warn "### $f_nr^$sf:$v",$/ if ($self->{debug} > 1);  #                                       warn "### $f_nr^$sf:$v",$/ if ($self->{debug} > 1);
604    
605                                          if (ref( $val->{$sf} ) eq 'ARRAY') {                                          if (ref( $val->{$sf} ) eq 'ARRAY') {
# 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.66  
changed lines
  Added in v.69
  ViewVC Help
Powered by ViewVC 1.1.26