my $xmlsimple = XML::Simple->new();
my $response = $xmlsimple->XMLin(
$content,
- forcearray => [ qw(SimilarProduct EditorialReview Review) ],
+ forcearray => [ qw(SimilarProduct EditorialReview Review Item) ],
) unless !$content;
return $response;
}
if ( $amazon_similars ) {
my $similar_products_exist;
my @similar_products;
- for my $similar_product (@{$amazon_details->{Items}->{Item}->{SimilarProducts}->{SimilarProduct}}) {
+ for my $similar_product (@{$amazon_details->{Items}->{Item}->[0]->{SimilarProducts}->{SimilarProduct}}) {
# do we have any of these isbns in our collection?
my $similar_biblionumbers = get_biblionumber_from_isbn($similar_product->{ASIN});
# verify that there is at least one similar item
$template->param( AMAZON_SIMILAR_PRODUCTS => \@similar_products );
}
if ( $amazon_reviews ) {
- my $item = $amazon_details->{Items}->{Item};
+ my $item = $amazon_details->{Items}->{Item}->[0];
my $editorial_reviews = \@{ $item->{EditorialReviews}->{EditorialReview} };
- #my $customer_reviews = \@{$amazon_details->{Items}->{Item}->{CustomerReviews}->{Review}};
- #my $average_rating = $amazon_details->{Items}->{Item}->{CustomerReviews}->{AverageRating} || 0;
+ #my $customer_reviews = \@{$amazon_details->{Items}->{Item}->[0]->{CustomerReviews}->{Review}};
+ #my $average_rating = $amazon_details->{Items}->{Item}->[0]->{CustomerReviews}->{AverageRating} || 0;
#$template->param( amazon_average_rating => $average_rating * 20 );
#$template->param( AMAZON_CUSTOMER_REVIEWS => $customer_reviews );
$template->param( AMAZON_EDITORIAL_REVIEWS => $editorial_reviews );
my $amazon_details = &get_amazon_details( $isbn, $record, $marcflavour, \@services );
my $similar_products_exist;
if ( $amazon_reviews ) {
- my $item = $amazon_details->{Items}->{Item};
+ my $item = $amazon_details->{Items}->{Item}->[0];
my $customer_reviews = \@{ $item->{CustomerReviews}->{Review} };
for my $one_review ( @$customer_reviews ) {
$one_review->{Date} = format_date($one_review->{Date});
$template->param( AMAZON_EDITORIAL_REVIEWS => $editorial_reviews );
}
if ( $amazon_similars ) {
- my $item = $amazon_details->{Items}->{Item};
+ my $item = $amazon_details->{Items}->{Item}->[0];
my @similar_products;
for my $similar_product (@{ $item->{SimilarProducts}->{SimilarProduct} }) {
# do we have any of these isbns in our collection?