From 98497fe86f71f34410058a943939ef6a932819ae Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Thu, 10 Nov 2016 14:07:18 +0000
Subject: [PATCH] Bug 15685: (QA followup) Fix qa script errors

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
---
 acqui/addorder.pl | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/acqui/addorder.pl b/acqui/addorder.pl
index 8f9d7e4..c102779 100755
--- a/acqui/addorder.pl
+++ b/acqui/addorder.pl
@@ -230,12 +230,9 @@ $orderinfo->{'list_price'}    ||=  0;
 $orderinfo->{'uncertainprice'} ||= 0;
 $orderinfo->{subscriptionid} ||= undef;
 
-my $basketno=$$orderinfo{basketno};
-my $basket = GetBasket($basketno);
-
-my $user = $input->remote_user;
-my $basketno=$$orderinfo{basketno};
-my $basket = Koha::Acquisition::Baskets->find( $basketno );
+my $user     = $input->remote_user;
+my $basketno = $$orderinfo{basketno};
+my $basket   = Koha::Acquisition::Baskets->find($basketno);
 
 # create, modify or delete biblio
 # create if $quantity>0 and $existing='no'
-- 
2.1.4