From 18140e04dcf180851e5fb7a6b111c4eb33b16a89 Mon Sep 17 00:00:00 2001 From: joshferraro Date: Tue, 25 Jan 2005 16:53:28 +0000 Subject: [PATCH] The Amazon module allows libraries to deliver amazon content to the opac --- C4/Amazon.pm | 79 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 79 insertions(+) create mode 100755 C4/Amazon.pm diff --git a/C4/Amazon.pm b/C4/Amazon.pm new file mode 100755 index 0000000000..dc872d4a12 --- /dev/null +++ b/C4/Amazon.pm @@ -0,0 +1,79 @@ + +package C4::Amazon; +# Copyright 2004-2005 Joshua Ferraro (jmf at kados dot org) +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA +# +# This module dynamically pulls amazon content into Koha. It does not +# store the data in Koha's database. You'll need to get a developer's key +# as well as an associate's tag to use it. +# FIXME: need to write up more docs. +# + +use strict; +require Exporter; + +use vars qw($VERSION @ISA @EXPORT); + +$VERSION = 0.01; + +@ISA = qw(Exporter); + +@EXPORT = qw( + &get_amazon_details +); + +sub get_amazon_details { + +my ( $isbn ) = @_; + +# insert your dev key here +my $dev_key=''; + +# insert your associates tag here +my $af_tag=''; + +my $asin=$isbn; + +# old way from command line: shift @ARGV or die "Usage:perl amazon_http.ol \n"; + +#my $url = "http://xml.amazon.com/onca/xml3?t=" . $af_tag . +# "&dev-t=" . $dev_key . +# "&type=heavy&f=xml&" . +# "AsinSearch=" . $asin; +my $url = "http://xml.amazon.com/onca/xml3?t=$dev_key&dev-t=$af_tag&type=heavy&f=xml&AsinSearch=" . $asin; + +#Here's an example asin for the book "Cryptonomicon" +#0596005423"; + +use XML::Simple; +use LWP::Simple; +my $content = get($url); +die "could not regrieve $url" unless $content; + +my $xmlsimple = XML::Simple->new(); +my $response = $xmlsimple->XMLin($content, + forcearray => [ qw(Details Product AvgCustomerRating CustomerReview) ], +); +return $response; +#foreach my $result (@{$response->{Details}}){ +# my $product_description = $result->{ProductDescription}; +# my $image = $result->{ImageUrlMedium}; +# my $price = $result->{ListPrice}; +# my $reviews = $result->{ +# return $result; +#} +} -- 2.39.5