/[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 907 by dpavlin, Fri Nov 3 20:56:21 2006 UTC revision 908 by dpavlin, Mon Oct 29 23:20:13 2007 UTC
# Line 5  use strict; Line 5  use strict;
5    
6  use MARC::Fast 0.03;  use MARC::Fast 0.03;
7  use base qw/WebPAC::Common/;  use base qw/WebPAC::Common/;
8    use Carp qw/confess/;
9    
10  =head1 NAME  =head1 NAME
11    
# Line 12  WebPAC::Input::MARC - support for MARC d Line 13  WebPAC::Input::MARC - support for MARC d
13    
14  =head1 VERSION  =head1 VERSION
15    
16  Version 0.08  Version 0.09
17    
18  =cut  =cut
19    
20  our $VERSION = '0.08';  our $VERSION = '0.09';
21    
22    
23  =head1 SYNOPSIS  =head1 SYNOPSIS
# Line 82  sub fetch_rec { Line 83  sub fetch_rec {
83          if ($mfn > $self->{_marc_size}) {          if ($mfn > $self->{_marc_size}) {
84                  $self->_get_logger()->warn("seek beyond database size $self->{_marc_size} to $mfn");                  $self->_get_logger()->warn("seek beyond database size $self->{_marc_size} to $mfn");
85          } else {          } else {
86                  my $row = $self->{_marc_db}->to_hash($mfn);                  my $marc = $self->{_marc_db} || confess "no _marc_db?";
87                    my $row = $marc->to_hash($mfn);
88                  push @{$row->{'000'}}, $mfn;                  push @{$row->{'000'}}, $mfn;
89                    push @{$row->{'leader'}}, $marc->last_leader;
90                  return $row;                  return $row;
91          }          }
92  }  }
Legend:
Removed from v.907  
changed lines
  Added in v.908
  ViewVC Help
Powered by ViewVC 1.1.26