/[webpac2]/trunk/lib/WebPAC/Input/MARC.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/WebPAC/Input/MARC.pm

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

revision 307 by dpavlin, Tue Dec 20 00:03:04 2005 UTC revision 309 by dpavlin, Tue Dec 20 19:01:27 2005 UTC
# Line 11  WebPAC::Input::MARC - support for MARC d Line 11  WebPAC::Input::MARC - support for MARC d
11    
12  =head1 VERSION  =head1 VERSION
13    
14  Version 0.02  Version 0.03
15    
16  =cut  =cut
17    
18  our $VERSION = '0.02';  our $VERSION = '0.03';
19    
20    
21  =head1 SYNOPSIS  =head1 SYNOPSIS
# Line 73  sub fetch_rec { Line 73  sub fetch_rec {
73          if ($mfn > $self->{size}) {          if ($mfn > $self->{size}) {
74                  $self->_get_logger()->warn("seek beyond database size $self->{size} to $mfn");                  $self->_get_logger()->warn("seek beyond database size $self->{size} to $mfn");
75          } else {          } else {
76                  my $row = $db->fetch($mfn);                  my $row = $db->to_hash($mfn);
77                  push @{$row->{'000'}}, $mfn;                  push @{$row->{'000'}}, $mfn;
78                  return $row;                  return $row;
79          }          }
Legend:
Removed from v.307  
changed lines
  Added in v.309
  ViewVC Help
Powered by ViewVC 1.1.26