WebPAC/Input/MARC.pm

package WebPAC::Input::MARC;

use warnings;
use strict;

use MARC::Fast 0.03;
use base qw/WebPAC::Common/;
use Carp qw/confess/;

=head1 NAME

WebPAC::Input::MARC - support for MARC database files

=head1 VERSION

Version 0.09

=cut

our $VERSION = '0.09';


=head1 SYNOPSIS

Open USMARC, Unimarc or any other file format that has same internal
structure using C<MARC::Fast>.

 my $marc = new WebPAC::Input::MARC(
        path => '/path/to/marc.iso'
 );

=head1 FUNCTIONS

=head2 new

Returns new low-level input API object

  my $marc = new WebPAC::Input::MARC(
        path => '/path/to/marc.iso',
        filter => \&code_ref,
  }

=cut

sub new {
        my $class = shift;
        my $self = {@_};
        bless($self, $class);

        my $arg = {@_};

        my $log = $self->_get_logger();

        $log->info("opening MARC database '$arg->{path}'");

        my $db = new MARC::Fast(
                marcdb => $arg->{path},
                hash_filter => $arg->{filter},
        );
        my $db_size = $db->count - 1;   # FIXME

        $self->{_marc_size} = $db_size;
        $self->{_marc_db} = $db;

        $self ? return $self : return undef;
}

=head2 fetch_rec

Return record with ID C<$mfn> from database

  my $rec = $self->fetch_rec( $mfn );

}

=cut

sub fetch_rec {
        my $self = shift;

        my $mfn = shift;

        if ($mfn > $self->{_marc_size}) {
                $self->_get_logger()->warn("seek beyond database size $self->{_marc_size} to $mfn");
        } else {
                my $marc = $self->{_marc_db} || confess "no _marc_db?";
                my $row = $marc->to_hash($mfn);
                push @{$row->{'000'}}, $mfn;
                push @{$row->{'leader'}}, $marc->last_leader;
                return $row;
        }
}

=head2 dump_ascii

Return ASCII dump of record with ID C<$mfn> from database

  print $self->dump_ascii( $mfn );

}

=cut

sub dump_ascii {
        my $self = shift;

        my $mfn = shift;
        return $self->{_marc_db}->to_ascii($mfn);
}

=head2 size

Return number of records in database

  my $size = $isis->size;

=cut

sub size {
        my $self = shift;
        return $self->{_marc_size};
}


=head1 AUTHOR

Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>

=head1 COPYRIGHT & LICENSE

Copyright 2005 Dobrica Pavlinusic, All Rights Reserved.

This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.

=cut

1; # End of WebPAC::Input::MARC
1	package WebPAC::Input::MARC;
2
3	use warnings;
4	use strict;
5
6	use MARC::Fast 0.03;
7	use base qw/WebPAC::Common/;
8	use Carp qw/confess/;
9
10	=head1 NAME
11
12	WebPAC::Input::MARC - support for MARC database files
13
14	=head1 VERSION
15
16	Version 0.09
17
18	=cut
19
20	our $VERSION = '0.09';
21
22
23	=head1 SYNOPSIS
24
25	Open USMARC, Unimarc or any other file format that has same internal
26	structure using C<MARC::Fast>.
27
28	my $marc = new WebPAC::Input::MARC(
29	path => '/path/to/marc.iso'
30	);
31
32	=head1 FUNCTIONS
33
34	=head2 new
35
36	Returns new low-level input API object
37
38	my $marc = new WebPAC::Input::MARC(
39	path => '/path/to/marc.iso',
40	filter => \&code_ref,
41	}
42
43	=cut
44
45	sub new {
46	my $class = shift;
47	my $self = {@_};
48	bless($self, $class);
49
50	my $arg = {@_};
51
52	my $log = $self->_get_logger();
53
54	$log->info("opening MARC database '$arg->{path}'");
55
56	my $db = new MARC::Fast(
57	marcdb => $arg->{path},
58	hash_filter => $arg->{filter},
59	);
60	my $db_size = $db->count - 1; # FIXME
61
62	$self->{_marc_size} = $db_size;
63	$self->{_marc_db} = $db;
64
65	$self ? return $self : return undef;
66	}
67
68	=head2 fetch_rec
69
70	Return record with ID C<$mfn> from database
71
72	my $rec = $self->fetch_rec( $mfn );
73
74	}
75
76	=cut
77
78	sub fetch_rec {
79	my $self = shift;
80
81	my $mfn = shift;
82
83	if ($mfn > $self->{_marc_size}) {
84	$self->_get_logger()->warn("seek beyond database size $self->{_marc_size} to $mfn");
85	} else {
86	my $marc = $self->{_marc_db} \|\| confess "no _marc_db?";
87	my $row = $marc->to_hash($mfn);
88	push @{$row->{'000'}}, $mfn;
89	push @{$row->{'leader'}}, $marc->last_leader;
90	return $row;
91	}
92	}
93
94	=head2 dump_ascii
95
96	Return ASCII dump of record with ID C<$mfn> from database
97
98	print $self->dump_ascii( $mfn );
99
100	}
101
102	=cut
103
104	sub dump_ascii {
105	my $self = shift;
106
107	my $mfn = shift;
108	return $self->{_marc_db}->to_ascii($mfn);
109	}
110
111	=head2 size
112
113	Return number of records in database
114
115	my $size = $isis->size;
116
117	=cut
118
119	sub size {
120	my $self = shift;
121	return $self->{_marc_size};
122	}
123
124
125	=head1 AUTHOR
126
127	Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
128
129	=head1 COPYRIGHT & LICENSE
130
131	Copyright 2005 Dobrica Pavlinusic, All Rights Reserved.
132
133	This program is free software; you can redistribute it and/or modify it
134	under the same terms as Perl itself.
135
136	=cut
137
138	1; # End of WebPAC::Input::MARC