/[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 337 by dpavlin, Sat Dec 31 16:41:35 2005 UTC revision 416 by dpavlin, Sun Feb 26 23:21:50 2006 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 MARC::Fast;  use MARC::Fast 0.03;
7    
8  =head1 NAME  =head1 NAME
9    
# 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.04  Version 0.05
15    
16  =cut  =cut
17    
18  our $VERSION = '0.04';  our $VERSION = '0.05';
19    
20    
21  =head1 SYNOPSIS  =head1 SYNOPSIS
# Line 33  structure using C<MARC::Fast>. Line 33  structure using C<MARC::Fast>.
33  Returns handle to database  Returns handle to database
34    
35    my $db = $open_db(    my $db = $open_db(
36          path => '/path/to/marc.iso'          path => '/path/to/marc.iso',
37            filter => \&code_ref,
38    }    }
39    
40  =cut  =cut
# Line 47  sub open_db { Line 48  sub open_db {
48    
49          $log->info("opening MARC database '$arg->{path}'");          $log->info("opening MARC database '$arg->{path}'");
50    
51          my $db = new MARC::Fast( marcdb => $arg->{path});          my $db = new MARC::Fast(
52                    marcdb => $arg->{path},
53                    hash_filter => $arg->{filter},
54            );
55          my $db_size = $db->count - 1;   # FIXME          my $db_size = $db->count - 1;   # FIXME
56    
57          $self->{_marc_size} = $db_size;          $self->{_marc_size} = $db_size;
Legend:
Removed from v.337  
changed lines
  Added in v.416
  ViewVC Help
Powered by ViewVC 1.1.26