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://www.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://www.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://www.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://www.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://www.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 (exists $subfield_a->{content}) {
235 if (ref($subfield_a->{content} eq 'ARRAY')) {
236 for my $content (@{$subfield_a->{content}}) {
237 push @content, {content => $content};
240 push @content, {content => $subfield_a->{content}};
243 elsif(ref($subfield_a->{a}->{content}) eq 'ARRAY') {
244 for my $content (@{$subfield_a->{a}->{content}}) {
245 push @content, {content => $content};
249 push @content, {content => $subfield_a->{a}->{content}};
251 push @reviews, {title => $source->{title}, reviews => \@content};
257 sub get_syndetics_editions {
258 my ( $isbn,$upc,$oclc ) = @_;
260 # grab the AWSAccessKeyId: mine is '0V5RRRRJZ3HR2RQFNHR2'
261 my $syndetics_client_code = C4::Context->preference('SyndeticsClientCode');
263 my $url = "http://www.syndetics.com/index.aspx?isbn=$isbn/FICTION.XML&client=$syndetics_client_code&type=xw10&upc=$upc&oclc=$oclc";
264 my $ua = LWP::UserAgent->new;
268 my $response = $ua->get($url);
269 unless ($response->content_type =~ /xml/) {
273 my $content = $response->content;
275 warn "could not retrieve $url" unless $content;
276 my $xmlsimple = XML::Simple->new();
277 $response = $xmlsimple->XMLin(
279 forcearray => [ qw(Fld020) ],
281 # manipulate response USMARC VarFlds VarDFlds Notes Fld520 a
283 $similar_items = \@{$response->{VarFlds}->{VarDFlds}->{NumbCode}->{Fld020}} if $response;
284 return $similar_items if $similar_items;
287 sub get_syndetics_anotes {
288 my ( $isbn,$upc,$oclc) = @_;
290 # grab the AWSAccessKeyId: mine is '0V5RRRRJZ3HR2RQFNHR2'
291 my $syndetics_client_code = C4::Context->preference('SyndeticsClientCode');
293 my $url = "http://www.syndetics.com/index.aspx?isbn=$isbn/ANOTES.XML&client=$syndetics_client_code&type=xw10&upc=$upc&oclc=$oclc";
294 my $ua = LWP::UserAgent->new;
298 my $response = $ua->get($url);
299 unless ($response->content_type =~ /xml/) {
303 my $content = $response->content;
305 warn "could not retrieve $url" unless $content;
306 my $xmlsimple = XML::Simple->new();
307 $response = $xmlsimple->XMLin(
309 forcearray => [ qw(Fld980) ],
313 for my $fld980 (@{$response->{VarFlds}->{VarDFlds}->{SSIFlds}->{Fld980}}) {
314 # this is absurd, but sometimes this data serializes differently
315 if(ref($fld980->{a}->{content}) eq 'ARRAY') {
316 for my $content (@{$fld980->{a}->{content}}) {
317 push @anotes, {content => $content};
322 push @anotes, {content => $fld980->{a}->{content}};
335 Joshua Ferraro <jmf@liblime.com>