1 package C4::External::Syndetics;
2 # Copyright (C) 2006 LibLime
3 # <jmf at liblime dot com>
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along with
17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18 # Suite 330, Boston, MA 02111-1307 USA
23 use HTTP::Request::Common;
28 use vars qw($VERSION @ISA @EXPORT);
36 &get_syndetics_summary
38 &get_syndetics_editions
39 &get_syndetics_excerpt
40 &get_syndetics_reviews
47 C4::External::Syndetics - Functions for retrieving Syndetics content in Koha
51 This module provides facilities for retrieving Syndetics.com content in Koha
53 =head2 get_syndetics_summary
57 my $syndetics_summary= &get_syndetics_summary( $isbn );
61 Get Summary data from Syndetics
65 sub get_syndetics_index {
66 my ( $isbn,$upc,$oclc ) = @_;
68 # grab the AWSAccessKeyId: mine is '0V5RRRRJZ3HR2RQFNHR2'
69 my $syndetics_client_code = C4::Context->preference('SyndeticsClientCode');
71 my $url = "http://syndetics.com/index.aspx?isbn=$isbn/INDEX.XML&client=$syndetics_client_code&type=xw10&upc=$upc&oclc=$oclc";
73 my $ua = LWP::UserAgent->new;
76 my $response = $ua->get($url);
77 unless ($response->content_type =~ /xml/) {
81 my $content = $response->content;
82 warn "could not retrieve $url" unless $content;
83 my $xmlsimple = XML::Simple->new();
84 $response = $xmlsimple->XMLin(
88 my $syndetics_elements;
89 for my $available_type ('SUMMARY','TOC','FICTION','AWARDS1','SERIES1','SPSUMMARY','SPREVIEW','AVSUMMARY','DBCHAPTER','LJREVIEW','PWREVIEW','SLJREVIEW','CHREVIEW','BLREVIEW','HBREVIEW','KIREVIEW','CRITICASREVIEW','ANOTES') {
90 if (exists $response->{$available_type} && $response->{$available_type} =~ /$available_type/) {
91 $syndetics_elements->{$available_type} = $available_type;
92 #warn "RESPONSE: $available_type : $response->{$available_type}";
95 return $syndetics_elements if $syndetics_elements;
98 sub get_syndetics_summary {
99 my ( $isbn,$upc,$oclc ) = @_;
101 # grab the AWSAccessKeyId: mine is '0V5RRRRJZ3HR2RQFNHR2'
102 my $syndetics_client_code = C4::Context->preference('SyndeticsClientCode');
104 my $url = "http://syndetics.com/index.aspx?isbn=$isbn/SUMMARY.XML&client=$syndetics_client_code&type=xw10&upc=$upc&oclc=$oclc";
105 my $ua = LWP::UserAgent->new;
108 my $response = $ua->get($url);
109 unless ($response->content_type =~ /xml/) {
113 my $content = $response->content;
115 warn "could not retrieve $url" unless $content;
116 my $xmlsimple = XML::Simple->new();
117 $response = $xmlsimple->XMLin(
119 forcearray => [ qw(Fld520) ],
121 # manipulate response USMARC VarFlds VarDFlds Notes Fld520 a
123 $summary = \@{$response->{VarFlds}->{VarDFlds}->{Notes}->{Fld520}} if $response;
124 return $summary if $summary;
127 sub get_syndetics_toc {
128 my ( $isbn,$upc,$oclc ) = @_;
130 # grab the AWSAccessKeyId: mine is '0V5RRRRJZ3HR2RQFNHR2'
131 my $syndetics_client_code = C4::Context->preference('SyndeticsClientCode');
133 my $url = "http://syndetics.com/index.aspx?isbn=$isbn/TOC.XML&client=$syndetics_client_code&type=xw10&upc=$upc&oclc=$oclc";
134 my $ua = LWP::UserAgent->new;
138 my $response = $ua->get($url);
139 unless ($response->content_type =~ /xml/) {
143 my $content = $response->content;
144 warn "could not retrieve $url" unless $content;
145 my $xmlsimple = XML::Simple->new();
146 $response = $xmlsimple->XMLin(
148 forcearray => [ qw(Fld970) ],
150 # manipulate response USMARC VarFlds VarDFlds Notes Fld520 a
152 $toc = \@{$response->{VarFlds}->{VarDFlds}->{SSIFlds}->{Fld970}} if $response;
156 sub get_syndetics_excerpt {
157 my ( $isbn,$upc,$oclc ) = @_;
159 # grab the AWSAccessKeyId: mine is '0V5RRRRJZ3HR2RQFNHR2'
160 my $syndetics_client_code = C4::Context->preference('SyndeticsClientCode');
162 my $url = "http://syndetics.com/index.aspx?isbn=$isbn/DBCHAPTER.XML&client=$syndetics_client_code&type=xw10&upc=$upc&oclc=$oclc";
163 my $ua = LWP::UserAgent->new;
166 my $response = $ua->get($url);
167 unless ($response->content_type =~ /xml/) {
171 my $content = $response->content;
172 warn "could not retrieve $url" unless $content;
173 my $xmlsimple = XML::Simple->new();
174 $response = $xmlsimple->XMLin(
176 forcearray => [ qw(Fld520) ],
178 # manipulate response USMARC VarFlds VarDFlds Notes Fld520 a
180 $excerpt = \@{$response->{VarFlds}->{VarDFlds}->{Notes}->{Fld520}} if $response;
181 return XMLout($excerpt, NoEscape => 1) if $excerpt;
184 sub get_syndetics_reviews {
185 my ( $isbn,$upc,$oclc,$syndetics_elements ) = @_;
187 # grab the AWSAccessKeyId: mine is '0V5RRRRJZ3HR2RQFNHR2'
188 my $syndetics_client_code = C4::Context->preference('SyndeticsClientCode');
190 my $review_sources = [
191 {title => 'Library Journal Review', file => 'LJREVIEW.XML', element => 'LJREVIEW'},
192 {title => 'Publishers Weekly Review', file => 'PWREVIEW.XML', element => 'PWREVIEW'},
193 {title => 'School Library Journal Review', file => 'SLJREVIEW.XML', element => 'SLJREVIEW'},
194 {title => 'CHOICE Review', file => 'CHREVIEW.XML', element => 'CHREVIEW'},
195 {title => 'Booklist Review', file => 'BLREVIEW.XML', element => 'BLREVIEW'},
196 {title => 'Horn Book Review', file => 'HBREVIEW.XML', element => 'HBREVIEW'},
197 {title => 'Kirkus Book Review', file => 'KIREVIEW.XML', element => 'KIREVIEW'},
198 {title => 'Criticas Review', file => 'CRITICASREVIEW.XML', element => 'CRITICASREVIEW'},
199 {title => 'Spanish Review', file => 'SPREVIEW.XML', element => 'SPREVIEW'},
202 for my $source (@$review_sources) {
203 if ($syndetics_elements->{$source->{element}} and $source->{element} =~ $syndetics_elements->{$source->{element}}) {
206 #warn "Skipping $source->{element} doesn't match $syndetics_elements->{$source->{element}} \n";
209 my $url = "http://syndetics.com/index.aspx?isbn=$isbn/$source->{file}&client=$syndetics_client_code&type=xw10&upc=$upc&oclc=$oclc";
211 my $ua = LWP::UserAgent->new;
215 my $response = $ua->get($url);
216 unless ($response->content_type =~ /xml/) {
220 my $content = $response->content;
221 warn "could not retrieve $url" unless $content;
222 my $xmlsimple = XML::Simple->new();
224 $response = $xmlsimple->XMLin(
227 forcearray => [ qw(Fld520) ]
231 for my $subfield_a (@{$response->{VarFlds}->{VarDFlds}->{Notes}->{Fld520}}) {
233 # this is absurd, but sometimes this data serializes differently
234 if(ref($subfield_a->{a}->{content}) eq 'ARRAY') {
235 for my $content (@{$subfield_a->{a}->{content}}) {
236 push @content, {content => $content};
240 push @content, {content => $subfield_a->{a}->{content}};
242 push @reviews, {title => $source->{title}, reviews => \@content};
248 sub get_syndetics_editions {
249 my ( $isbn,$upc,$oclc ) = @_;
251 # grab the AWSAccessKeyId: mine is '0V5RRRRJZ3HR2RQFNHR2'
252 my $syndetics_client_code = C4::Context->preference('SyndeticsClientCode');
254 my $url = "http://syndetics.com/index.aspx?isbn=$isbn/FICTION.XML&client=$syndetics_client_code&type=xw10&upc=$upc&oclc=$oclc";
255 my $ua = LWP::UserAgent->new;
259 my $response = $ua->get($url);
260 unless ($response->content_type =~ /xml/) {
264 my $content = $response->content;
266 warn "could not retrieve $url" unless $content;
267 my $xmlsimple = XML::Simple->new();
268 $response = $xmlsimple->XMLin(
270 forcearray => [ qw(Fld020) ],
272 # manipulate response USMARC VarFlds VarDFlds Notes Fld520 a
274 $similar_items = \@{$response->{VarFlds}->{VarDFlds}->{NumbCode}->{Fld020}} if $response;
275 return $similar_items if $similar_items;
278 sub get_syndetics_anotes {
279 my ( $isbn,$upc,$oclc) = @_;
281 # grab the AWSAccessKeyId: mine is '0V5RRRRJZ3HR2RQFNHR2'
282 my $syndetics_client_code = C4::Context->preference('SyndeticsClientCode');
284 my $url = "http://syndetics.com/index.aspx?isbn=$isbn/ANOTES.XML&client=$syndetics_client_code&type=xw10&upc=$upc&oclc=$oclc";
285 my $ua = LWP::UserAgent->new;
289 my $response = $ua->get($url);
290 unless ($response->content_type =~ /xml/) {
294 my $content = $response->content;
296 warn "could not retrieve $url" unless $content;
297 my $xmlsimple = XML::Simple->new();
298 $response = $xmlsimple->XMLin(
300 forcearray => [ qw(Fld980) ],
304 for my $fld980 (@{$response->{VarFlds}->{VarDFlds}->{SSIFlds}->{Fld980}}) {
305 # this is absurd, but sometimes this data serializes differently
306 if(ref($fld980->{a}->{content}) eq 'ARRAY') {
307 for my $content (@{$fld980->{a}->{content}}) {
308 push @anotes, {content => $content};
313 push @anotes, {content => $fld980->{a}->{content}};
326 Joshua Ferraro <jmf@liblime.com>