[Koha-patches] [PATCH] Bug Fixing bug 2410 : Cant Coerce 0 into hash

Henri-Damien LAURENT henridamien.laurent at biblibre.com
Mon Jul 28 11:56:37 CEST 2008


Was a problem of Amazon Similar Items
---
 catalogue/detail.pl |   12 +++++++-----
 1 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/catalogue/detail.pl b/catalogue/detail.pl
index c7f0afd..9d195b3 100755
--- a/catalogue/detail.pl
+++ b/catalogue/detail.pl
@@ -112,9 +112,9 @@ my (@itemloop, %itemfields);
 		foreach (qw(datedue datelastseen onloan)) {
 			$item->{$_} = format_date($item->{$_});
 		}
-        $item->{datedue} = format_date($item->{datedue});
-        $item->{datelastseen} = format_date($item->{datelastseen});
-        $item->{onloan} = format_date($item->{onloan});
+	$item->{datedue} = format_date($item->{datedue});
+	$item->{datelastseen} = format_date($item->{datelastseen});
+	$item->{onloan} = format_date($item->{onloan});
         # item damaged, lost, withdrawn loops
         $item->{itemlostloop}= GetAuthorisedValues(GetAuthValCode('items.itemlost',$fw),$item->{itemlost}) if GetAuthValCode('items.itemlost',$fw);
         if ($item->{damaged}) {
@@ -216,8 +216,10 @@ if ( C4::Context->preference("AmazonContent") == 1 ) {
         # 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
-        $similar_products_exist++ if ${@$similar_biblionumbers}[0];
-        push @similar_products, +{ similar_biblionumbers => $similar_biblionumbers, title => $similar_product->{Title}, ASIN => $similar_product->{ASIN}  };
+	if (scalar(@$similar_biblionumbers)){
+ 	       $similar_products_exist++ if ($similar_biblionumbers && ${@$similar_biblionumbers}[0]);
+               push @similar_products, +{ similar_biblionumbers => $similar_biblionumbers, title => $similar_product->{Title}, ASIN => $similar_product->{ASIN}  };
+	}
     }
     my $editorial_reviews = \@{$amazon_details->{Items}->{Item}->{EditorialReviews}->{EditorialReview}};
     my $average_rating = $amazon_details->{Items}->{Item}->{CustomerReviews}->{AverageRating};
-- 
1.5.4.3




More information about the Koha-patches mailing list