From 3ed1d0bf7ed48a207a021e171882b5f30c257f2e Mon Sep 17 00:00:00 2001
From: Yohann Dufour <dufour.yohann@gmail.com>
Date: Tue, 8 Jul 2014 09:16:48 +0200
Subject: [PATCH] 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 <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
---
 C4/Acquisition.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm
index 29354f61f4..0cff235431 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} );
-- 
2.39.2