WebPAC/Input/ISIS.pm

package WebPAC::Input::ISIS;

use warnings;
use strict;

require Exporter;
use vars qw/@ISA @EXPORT/;
@ISA = qw/Exporter/;
@EXPORT = qw/init open_db fetch_rec/;

use blib;
use WebPAC::Input;
#use base qw/WebPAC::Input/;

=head1 NAME

WebPAC::Input::ISIS - support for CDS/ISIS database files

=head1 VERSION

Version 0.03

=cut

our $VERSION = '0.03';


=head1 SYNOPSIS

Open CDS/ISIS, WinISIS or IsisMarc database using C<Biblio::Isis> or
C<OpenIsis> module and read all records to memory.

 my $isis = new WebPAC::Input::ISIS();
 $isis->open( path => '/path/to/ISIS/ISIS' );

=head1 FUNCTIONS

=head2 init

Autoconfigure this module to use C<Biblio::Isis> or C<OpenIsis>.

=cut

sub init {
        my $self = shift;

        eval "use Biblio::Isis 0.13;";
        unless ($@) { 
                $self->{have_biblio_isis} = 1
        } else {
                eval "use OpenIsis;";
                $self->{have_openisis} = 1 unless ($@);
        }
}

=head2 open_db

Returns handle to database

  my $db = $open_db(
        path => '/path/to/LIBRI'
  }

=cut

sub open_db {
        my $self = shift;

        my $arg = {@_};

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

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

        my ($isis_db,$db_size);

        if ($self->{have_openisis}) {
                $log->debug("using OpenIsis perl bindings");
                $isis_db = OpenIsis::open($arg->{path});
                $db_size = OpenIsis::maxRowid( $isis_db ) || 1;
        } elsif ($self->{have_biblio_isis}) {
                $log->debug("using Biblio::Isis");
                use Biblio::Isis;
                $isis_db = new Biblio::Isis(
                        isisdb => $arg->{path},
                        include_deleted => 1,
                        hash_filter => sub {
                                my $l = shift || return;
                                $l = $self->{iconv}->convert($l) if ($self->{iconv});
                                return $l;
                        },
                ) or $log->logdie("can't find database $arg->{path}");

                $db_size = $isis_db->count;

        } else {
                $log->logdie("Can't find supported ISIS library for perl. I suggent that you install Bilbio::Isis from CPAN.");
        }

        return ($isis_db, $db_size);
}

=head2 fetch_rec

Return record with ID C<$mfn> from database

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

}

=cut

sub fetch_rec {
        my $self = shift;

        my ($isis_db, $mfn) = @_;

        my $rec;

        if ($self->{have_openisis}) {

                # read record using OpenIsis
                my $row = OpenIsis::read( $isis_db, $mfn );

                # convert record to hash
                foreach my $k (keys %{$row}) {
                        if ($k ne "mfn") {
                                foreach my $l (@{$row->{$k}}) {
                                        $l = $self->{iconv}->convert($l) if ($self->{iconv});
                                        # has subfields?
                                        my $val;
                                        if ($l =~ m/\^/) {
                                                foreach my $t (split(/\^/,$l)) {
                                                        next if (! $t);
                                                        $val->{substr($t,0,1)} = substr($t,1);
                                                }
                                        } else {
                                                $val = $l;
                                        }
                                        push @{$rec->{$k}}, $val;
                                }
                        } else {
                                push @{$rec->{'000'}}, $mfn;
                        }
                }

        } elsif ($self->{have_biblio_isis}) {
                $rec = $isis_db->to_hash($mfn);
        } else {
                $self->_get_logger()->logdie("hum? implementation missing?");
        }

        return $rec;
}

=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::ISIS
1	dpavlin	6	package WebPAC::Input::ISIS;
2
3			use warnings;
4			use strict;
5
6	dpavlin	286	require Exporter;
7			use vars qw/@ISA @EXPORT/;
8			@ISA = qw/Exporter/;
9			@EXPORT = qw/init open_db fetch_rec/;
10
11	dpavlin	285	use blib;
12			use WebPAC::Input;
13	dpavlin	286	#use base qw/WebPAC::Input/;
14	dpavlin	285
15	dpavlin	6	=head1 NAME
16
17	dpavlin	285	WebPAC::Input::ISIS - support for CDS/ISIS database files
18	dpavlin	6
19			=head1 VERSION
20
21	dpavlin	286	Version 0.03
22	dpavlin	6
23			=cut
24
25	dpavlin	286	our $VERSION = '0.03';
26	dpavlin	6
27
28			=head1 SYNOPSIS
29
30	dpavlin	285	Open CDS/ISIS, WinISIS or IsisMarc database using C<Biblio::Isis> or
31			C<OpenIsis> module and read all records to memory.
32	dpavlin	6
33			my $isis = new WebPAC::Input::ISIS();
34	dpavlin	285	$isis->open( path => '/path/to/ISIS/ISIS' );
35	dpavlin	6
36			=head1 FUNCTIONS
37
38	dpavlin	285	=head2 init
39	dpavlin	6
40	dpavlin	285	Autoconfigure this module to use C<Biblio::Isis> or C<OpenIsis>.
41	dpavlin	6
42	dpavlin	285	=cut
43	dpavlin	6
44	dpavlin	285	sub init {
45			my $self = shift;
46	dpavlin	6
47	dpavlin	285	eval "use Biblio::Isis 0.13;";
48			unless ($@) {
49			$self->{have_biblio_isis} = 1
50			} else {
51			eval "use OpenIsis;";
52			$self->{have_openisis} = 1 unless ($@);
53			}
54			}
55	dpavlin	6
56	dpavlin	285	=head2 open_db
57	dpavlin	6
58	dpavlin	285	Returns handle to database
59	dpavlin	6
60	dpavlin	285	my $db = $open_db(
61			path => '/path/to/LIBRI'
62			}
63
64	dpavlin	6	=cut
65
66	dpavlin	285	sub open_db {
67	dpavlin	6	my $self = shift;
68	dpavlin	285
69	dpavlin	6	my $arg = {@_};
70
71			my $log = $self->_get_logger();
72
73	dpavlin	285	$log->info("opening ISIS database '$arg->{path}'");
74	dpavlin	6
75	dpavlin	21	my ($isis_db,$db_size);
76	dpavlin	6
77	dpavlin	285	if ($self->{have_openisis}) {
78	dpavlin	6	$log->debug("using OpenIsis perl bindings");
79	dpavlin	285	$isis_db = OpenIsis::open($arg->{path});
80	dpavlin	21	$db_size = OpenIsis::maxRowid( $isis_db ) \|\| 1;
81	dpavlin	285	} elsif ($self->{have_biblio_isis}) {
82	dpavlin	6	$log->debug("using Biblio::Isis");
83			use Biblio::Isis;
84			$isis_db = new Biblio::Isis(
85	dpavlin	285	isisdb => $arg->{path},
86	dpavlin	6	include_deleted => 1,
87			hash_filter => sub {
88			my $l = shift \|\| return;
89	dpavlin	285	$l = $self->{iconv}->convert($l) if ($self->{iconv});
90	dpavlin	6	return $l;
91			},
92	dpavlin	285	) or $log->logdie("can't find database $arg->{path}");
93	dpavlin	265
94	dpavlin	21	$db_size = $isis_db->count;
95	dpavlin	6
96			} else {
97			$log->logdie("Can't find supported ISIS library for perl. I suggent that you install Bilbio::Isis from CPAN.");
98			}
99
100	dpavlin	285	return ($isis_db, $db_size);
101			}
102	dpavlin	6
103	dpavlin	285	=head2 fetch_rec
104	dpavlin	6
105	dpavlin	285	Return record with ID C<$mfn> from database
106	dpavlin	6
107	dpavlin	285	my $rec = $self->fetch_rec( $db, $mfn );
108	dpavlin	6
109	dpavlin	285	}
110	dpavlin	21
111	dpavlin	285	=cut
112	dpavlin	6
113	dpavlin	285	sub fetch_rec {
114			my $self = shift;
115	dpavlin	6
116	dpavlin	285	my ($isis_db, $mfn) = @_;
117	dpavlin	6
118	dpavlin	285	my $rec;
119	dpavlin	6
120	dpavlin	285	if ($self->{have_openisis}) {
121	dpavlin	6
122	dpavlin	285	# read record using OpenIsis
123			my $row = OpenIsis::read( $isis_db, $mfn );
124	dpavlin	6
125	dpavlin	285	# convert record to hash
126			foreach my $k (keys %{$row}) {
127			if ($k ne "mfn") {
128			foreach my $l (@{$row->{$k}}) {
129			$l = $self->{iconv}->convert($l) if ($self->{iconv});
130			# has subfields?
131			my $val;
132			if ($l =~ m/\^/) {
133			foreach my $t (split(/\^/,$l)) {
134			next if (! $t);
135			$val->{substr($t,0,1)} = substr($t,1);
136	dpavlin	6	}
137	dpavlin	285	} else {
138			$val = $l;
139	dpavlin	6	}
140	dpavlin	285	push @{$rec->{$k}}, $val;
141	dpavlin	6	}
142	dpavlin	285	} else {
143			push @{$rec->{'000'}}, $mfn;
144	dpavlin	6	}
145			}
146
147	dpavlin	285	} elsif ($self->{have_biblio_isis}) {
148			$rec = $isis_db->to_hash($mfn);
149	dpavlin	6	} else {
150	dpavlin	285	$self->_get_logger()->logdie("hum? implementation missing?");
151	dpavlin	6	}
152
153	dpavlin	285	return $rec;
154	dpavlin	6	}
155
156			=head1 AUTHOR
157
158			Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
159
160			=head1 COPYRIGHT & LICENSE
161
162			Copyright 2005 Dobrica Pavlinusic, All Rights Reserved.
163
164			This program is free software; you can redistribute it and/or modify it
165			under the same terms as Perl itself.
166
167			=cut
168
169			1; # End of WebPAC::Input::ISIS