From 7598ea01b4326d0c36c76c43c4d04976655c5f51 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 5 Jun 2017 12:35:10 -0300 Subject: [PATCH] Bug 8612: Remove warnings from tests --- C4/Acquisition.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 16f4424..ed80b26 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -315,8 +315,11 @@ sub GetBasketAsCSV { my $bd = GetBiblioData( $order->{'biblionumber'} ); my @biblioitems = GetBiblioItemByBiblioNumber( $order->{'biblionumber'}); for my $biblioitem (@biblioitems) { - if ($biblioitem->{isbn} eq $order->{isbn}) { - $order = {%$order, %$biblioitem}; + if ( $biblioitem->{isbn} + and $order->{isbn} + and $biblioitem->{isbn} eq $order->{isbn} ) + { + $order = { %$order, %$biblioitem }; } } if ($contract) { -- 2.1.4