/[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 309 by dpavlin, Tue Dec 20 19:01:27 2005 UTC revision 337 by dpavlin, Sat Dec 31 16:41:35 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.03  Version 0.04
15    
16  =cut  =cut
17    
18  our $VERSION = '0.03';  our $VERSION = '0.04';
19    
20    
21  =head1 SYNOPSIS  =head1 SYNOPSIS
# Line 50  sub open_db { Line 50  sub open_db {
50          my $db = new MARC::Fast( marcdb => $arg->{path});          my $db = new MARC::Fast( marcdb => $arg->{path});
51          my $db_size = $db->count - 1;   # FIXME          my $db_size = $db->count - 1;   # FIXME
52    
53          $self->{size} = $db_size;          $self->{_marc_size} = $db_size;
54    
55          return ($db, $db_size);          return ($db, $db_size);
56  }  }
# Line 70  sub fetch_rec { Line 70  sub fetch_rec {
70    
71          my ($db, $mfn) = @_;          my ($db, $mfn) = @_;
72    
73          if ($mfn > $self->{size}) {          if ($mfn > $self->{_marc_size}) {
74                  $self->_get_logger()->warn("seek beyond database size $self->{size} to $mfn");                  $self->_get_logger()->warn("seek beyond database size $self->{_marc_size} to $mfn");
75          } else {          } else {
76                  my $row = $db->to_hash($mfn);                  my $row = $db->to_hash($mfn);
77                  push @{$row->{'000'}}, $mfn;                  push @{$row->{'000'}}, $mfn;
# Line 79  sub fetch_rec { Line 79  sub fetch_rec {
79          }          }
80  }  }
81    
82    =head1 PROPERTIES
83    
84    =head2 _marc_size
85    
86    Store size of MARC database
87    
88      print $self->{_marc_size};
89    
90    
91    
92  =head1 AUTHOR  =head1 AUTHOR
93    
94  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
Legend:
Removed from v.309  
changed lines
  Added in v.337
  ViewVC Help
Powered by ViewVC 1.1.26