[Koha-cvs] CVS: koha/opac opac-detail.pl,1.14,1.15

[Joshua Ferraro]

Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3544

Modified Files:
	opac-detail.pl 
Log Message:
Adds amazon support to opac-detail.pl


Index: opac-detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-detail.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** opac-detail.pl	18 Aug 2004 16:44:37 -0000	1.14
--- opac-detail.pl	25 Jan 2005 16:58:18 -0000	1.15
***************
*** 10,14 ****
  use C4::Biblio;
  use C4::SearchMarc;
! 
  my $query=new CGI;
  my ($template, $borrowernumber, $cookie) 
--- 10,14 ----
  use C4::Biblio;
  use C4::SearchMarc;
! use C4::Amazon;
  my $query=new CGI;
  my ($template, $borrowernumber, $cookie) 
***************
*** 73,76 ****
  				subscriptionid => $subscriptionid,
  );
! 
  output_html_with_http_headers $query, $cookie, $template->output;
--- 73,103 ----
  				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;