/[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 298 by dpavlin, Mon Dec 19 19:55:21 2005 UTC revision 1063 by dpavlin, Tue Nov 27 21:01:44 2007 UTC
# Line 3  package WebPAC::Input::MARC; Line 3  package WebPAC::Input::MARC;
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6  use blib;  use MARC::Fast 0.03;
7    use base qw/WebPAC::Common/;
8  use MARC::Fast;  use Carp qw/confess/;
9    
10  =head1 NAME  =head1 NAME
11    
# Line 13  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.02  Version 0.09
17    
18  =cut  =cut
19    
20  our $VERSION = '0.02';  our $VERSION = '0.09';
21    
22    
23  =head1 SYNOPSIS  =head1 SYNOPSIS
# Line 25  our $VERSION = '0.02'; Line 25  our $VERSION = '0.02';
25  Open USMARC, Unimarc or any other file format that has same internal  Open USMARC, Unimarc or any other file format that has same internal
26  structure using C<MARC::Fast>.  structure using C<MARC::Fast>.
27    
28   my $marc = new WebPAC::Input::MARC();   my $marc = new WebPAC::Input::MARC(
29   $marc->open( path => '/path/to/marc.iso' );          path => '/path/to/marc.iso'
30     );
31    
32  =head1 FUNCTIONS  =head1 FUNCTIONS
33    
34  =head2 open_db  =head2 new
35    
36  Returns handle to database  Returns new low-level input API object
37    
38    my $db = $open_db(    my $marc = new WebPAC::Input::MARC(
39          path => '/path/to/marc.iso'          path => '/path/to/marc.iso',
40            filter => \&code_ref,
41    }    }
42    
43  =cut  =cut
44    
45  sub open_db {  sub new {
46          my $self = shift;          my $class = shift;
47            my $self = {@_};
48            bless($self, $class);
49    
50          my $arg = {@_};          my $arg = {@_};
51    
# Line 49  sub open_db { Line 53  sub open_db {
53    
54          $log->info("opening MARC database '$arg->{path}'");          $log->info("opening MARC database '$arg->{path}'");
55    
56          my $db = new MARC::Fast( marcdb => $arg->{path});          my $db = new MARC::Fast(
57                    marcdb => $arg->{path},
58                    hash_filter => $arg->{filter},
59            );
60          my $db_size = $db->count - 1;   # FIXME          my $db_size = $db->count - 1;   # FIXME
61    
62          $self->{size} = $db_size;          $self->{_marc_size} = $db_size;
63            $self->{_marc_db} = $db;
64    
65          return ($db, $db_size);          $self ? return $self : return undef;
66  }  }
67    
68  =head2 fetch_rec  =head2 fetch_rec
69    
70  Return record with ID C<$mfn> from database  Return record with ID C<$mfn> from database
71    
72    my $rec = $self->fetch_rec( $db, $mfn );    my $rec = $self->fetch_rec( $mfn );
   
 }  
73    
74  =cut  =cut
75    
76  sub fetch_rec {  sub fetch_rec {
77          my $self = shift;          my $self = shift;
78    
79          my ($db, $mfn) = @_;          my $mfn = shift;
80    
81          if ($mfn > $self->{size}) {          if ($mfn > $self->{_marc_size}) {
82                  $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");
83          } else {          } else {
84                  my $row = $db->fetch($mfn);                  my $marc = $self->{_marc_db} || confess "no _marc_db?";
85                    my $row = $marc->to_hash($mfn);
86                  push @{$row->{'000'}}, $mfn;                  push @{$row->{'000'}}, $mfn;
87                    push @{$row->{'leader'}}, $marc->last_leader;
88                  return $row;                  return $row;
89          }          }
90  }  }
91    
92    =head2 dump_ascii
93    
94    Return ASCII dump of record with ID C<$mfn> from database
95    
96      print $self->dump_ascii( $mfn );
97    
98    =cut
99    
100    sub dump_ascii {
101            my $self = shift;
102    
103            my $mfn = shift;
104            return $self->{_marc_db}->to_ascii($mfn);
105    }
106    
107    =head2 size
108    
109    Return number of records in database
110    
111      my $size = $isis->size;
112    
113    =cut
114    
115    sub size {
116            my $self = shift;
117            return $self->{_marc_size};
118    }
119    
120    
121  =head1 AUTHOR  =head1 AUTHOR
122    
123  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
Legend:
Removed from v.298  
changed lines
  Added in v.1063
  ViewVC Help
Powered by ViewVC 1.1.26