From 98497fe86f71f34410058a943939ef6a932819ae Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Thu, 10 Nov 2016 14:07:18 +0000 Subject: [PATCH] Bug 15685: (QA followup) Fix qa script errors Signed-off-by: Katrin Fischer Signed-off-by: Tomas Cohen Arazi --- 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