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

[Joshua Ferraro]

Hi Henri-Damien,

Once again, I don't see a bugzilla bug referenced in this patch so I'm
not sure what problem it seeks to solve. Please submit a detailed bug
report for this issue, along with steps to reproduce it, so that I have
a way to test the patch after observing the issue myself.

Thanks!

Josh

On Mon, Jul 28, 2008 at 11:56:37AM +0200, Henri-Damien LAURENT wrote:
> 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
> 
> _______________________________________________
> Koha-patches mailing list
> Koha-patches at lists.koha.org
> http://lists.koha.org/mailman/listinfo/koha-patches