WebPAC/Input/MARC.pm

package WebPAC::Input::MARC;

use warnings;
use strict;

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

=head1 NAME

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

=head1 VERSION

Version 0.07

=cut

our $VERSION = '0.07';


=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 $row = $self->{_marc_db}->to_hash($mfn);
                push @{$row->{'000'}}, $mfn;
                return $row;
        }
}

=head2 dump_rec

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

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

}

=cut

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