From 9440e9b7d76c9f894a1126278c55aafd947daa42 Mon Sep 17 00:00:00 2001 From: Yohann Dufour Date: Tue, 8 Jul 2014 09:16:48 +0200 Subject: [PATCH] [PASSED QA] Bug 12493 : moving the subroutines GetContract and GetContracts from C4::Acquisition.pm to C4::Contract.pm Fix in order to respect the coding guidelines Signed-off-by: Kyle M Hall --- C4/Acquisition.pm | 7 +++---- 1 files changed, 3 insertions(+), 4 deletions(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 93e4a8a..7e4fab6 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -18,8 +18,7 @@ package C4::Acquisition; # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. -use strict; -use warnings; +use Modern::Perl; use Carp; use C4::Context; use C4::Debug; @@ -362,9 +361,9 @@ sub GetBasketGroupAsCSV { my @rows; for my $basket (@$baskets) { - my @orders = GetOrders( $$basket{basketno} ); + my @orders = GetOrders( $basket->{basketno} ); my $contract = GetContract({ - contractnumber => $$basket{contractnumber} + contractnumber => $basket->{contractnumber} }); my $bookseller = GetBookSellerFromId( $$basket{booksellerid} ); my $basketgroup = GetBasketgroup( $$basket{basketgroupid} ); -- 1.7.2.5