fix calls to get_template_and_user in label-item-search.pl

[koha.git] / C4 / Amazon.pm

diff --git a/C4/Amazon.pm b/C4/Amazon.pm
old mode 100755 (executable)
new mode 100644 (file)
index 02d3b46..de46686
--- a/C4/Amazon.pm
+++ b/C4/Amazon.pm
@@ -19,16 +19,22 @@ package C4::Amazon;
 
 use XML::Simple;
 use LWP::Simple;
-
 use LWP::UserAgent;
 use HTTP::Request::Common;
 
 use strict;
-require Exporter;
 
 use vars qw($VERSION @ISA @EXPORT);
 
-$VERSION = 0.02;
+BEGIN {
+    require Exporter;
+    $VERSION = 0.03;
+    @ISA = qw(Exporter);
+    @EXPORT = qw(
+        &get_amazon_details
+        &check_search_inside
+    );
+}
 
 =head1 NAME
 
@@ -38,15 +44,6 @@ C4::Amazon - Functions for retrieving Amazon.com content in Koha
 
 This module provides facilities for retrieving Amazon.com content in Koha
 
-=cut
-
-@ISA = qw(Exporter);
-
-@EXPORT = qw(
-  &get_amazon_details
-  &check_search_inside
-);
-
 =head1 get_amazon_details($isbn);
 
 =head2 $isbn is a isbn string
@@ -55,25 +52,41 @@ This module provides facilities for retrieving Amazon.com content in Koha
 
 sub get_amazon_details {
     my ( $isbn ) = @_;
+    #normalize the ISBN
+    $isbn =~ /(\d*[X]*)/;
+    $isbn = $1;
 
-    #get rid of MARC cataloger's nonsense
-    $isbn =~ s/(p|-)//g;
+    # Determine which content to grab in the request
 
-    # grab the developer's key: mine is 'ektostoukadou-20'
-    my $dev_key=C4::Context->preference('AmazonDevKey');
+    # Determine correct locale
+    my $locale_hashref = {
+        CA => '.ca',
+        DE => '.de',
+        FR => '.fr',
+        JP => '.jp',
+        UK => '.co.uk',
+        US => '.com',
+    };
 
-    #grab the associates tag: mine is '0ZRY7YASKJS280T7YB02'
-    my $af_tag=C4::Context->preference('AmazonAssocTag');
+    my $amazon_locale_syspref = C4::Context->preference('AmazonLocale');
+    my $tld = $locale_hashref->{$amazon_locale_syspref} || '.com'; # default top level domain is .com
+
+    # grab the AWSAccessKeyId: mine is '0V5RRRRJZ3HR2RQFNHR2'
+    my $aws_access_key_id = C4::Context->preference('AWSAccessKeyID');
 
+    #grab the associates tag: mine is 'kadabox-20'
+    my $af_tag=C4::Context->preference('AmazonAssocTag');
+    my $response_group = "Similarities,EditorialReview,Reviews,ItemAttributes";
     my $asin=$isbn;
-    my $url = "http://xml.amazon.com/onca/xml3?t=$af_tag&dev-t=$dev_key&type=heavy&f=xml&AsinSearch=" . $asin;
+    my $url = "http://ecs.amazonaws$tld/onca/xml?Service=AWSECommerceService&AWSAccessKeyId=$aws_access_key_id&Operation=ItemLookup&AssociateTag=$af_tag&Version=2007-01-15&ItemId=$asin&ResponseGroup=$response_group";
+    # warn $url;
     my $content = get($url);
-    #warn $content;
     warn "could not retrieve $url" unless $content;
     my $xmlsimple = XML::Simple->new();
-    my $response = $xmlsimple->XMLin($content,
-    forcearray => [ qw(Details Product AvgCustomerRating CustomerReview) ],
-);
+    my $response = $xmlsimple->XMLin(
+        $content,
+        forcearray => [ qw(SimilarProduct EditorialReview Review) ],
+    ) unless !$content;
     return $response;
 }
 
@@ -99,6 +112,9 @@ sub check_search_inside {
         return $available;
 }
 
+1;
+__END__
+
 =head1 NOTES
 
 =head1 AUTHOR