From 7a939efced1a9d7205b2e53421a2761ac3fd7fd6 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Fri, 14 Sep 2012 16:32:48 +0200 Subject: [PATCH] Bug 5349: Fix a logical test in TransferOrder --- C4/Acquisition.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 9ad5f71..9a4560a 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -1575,7 +1575,7 @@ Return the ordernumber of created order. sub TransferOrder { my ($ordernumber, $basketno) = @_; - return unless $ordernumber or $basketno; + return unless ($ordernumber and $basketno); my $order = GetOrder( $ordernumber ); return if $order->{datereceived}; -- 1.7.10.4