From fea81cb709e35c06d11487e80d4917467bf70150 Mon Sep 17 00:00:00 2001 From: joshferraro Date: Tue, 25 Jan 2005 16:58:18 +0000 Subject: [PATCH] Adds amazon support to opac-detail.pl --- opac/opac-detail.pl | 29 ++++++++++++++++++++++++++++- 1 file changed, 28 insertions(+), 1 deletion(-) diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl index 0456a2f5c0..310a7002c7 100755 --- a/opac/opac-detail.pl +++ b/opac/opac-detail.pl @@ -9,7 +9,7 @@ use C4::Interface::CGI::Output; use HTML::Template; use C4::Biblio; use C4::SearchMarc; - +use C4::Amazon; my $query=new CGI; my ($template, $borrowernumber, $cookie) = get_template_and_user({template_name => "opac-detail.tmpl", @@ -72,5 +72,32 @@ $template->param(BIBLIO_RESULTS => $resultsarray, SITE_RESULTS => $sitearray, subscriptionid => $subscriptionid, ); + ## get Amazon.com stuff +my $isbn=$dat->{'isbn'}; +my $amazon_details = &get_amazon_details($isbn); +foreach my $result (@{$amazon_details->{Details}}){ + $template->param(item_description => $result->{ProductDescription}); + $template->param(image => $result->{ImageUrlMedium}); + $template->param(list_price => $result->{ListPrice}); + $template->param(amazon_url => $result->{url}); + } +my @products; +my @reviews; +for my $details( @{ $amazon_details->{ Details } } ) { + next unless $details->{ SimilarProducts }; + for my $product ( @{ $details->{ SimilarProducts }->{ Product } } ) { + push @products, +{ Product => $product }; + } + next unless $details->{ Reviews }; + for my $product ( @{ $details->{ Reviews }->{ AvgCustomerRating } } ) { + $template->param(rating => $product); + } + for my $reviews ( @{ $details->{ Reviews }->{ CustomerReview } } ) { + push @reviews, +{ Summary => $reviews->{ Summary }, Comment => $reviews->{ Comment }, }; + } +} +$template->param( SIMILAR_PRODUCTS => \@products ); +$template->param( REVIEWS => \@reviews ); + ## End of Amazon Stuff output_html_with_http_headers $query, $cookie, $template->output; -- 2.39.5