From c35d269949d52bddcdc0bd7b2ecc2ae622845bb8 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 files changed, 1 insertions(+), 1 deletions(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 0219f48..9a19204 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -1587,7 +1587,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.2.5