From 3f6416c4abf203d557bd6ad88a88b3400ceee749 Mon Sep 17 00:00:00 2001 From: Julian Maurice Date: Fri, 14 Sep 2012 16:32:48 +0200 Subject: [PATCH 3/3] 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 22fe3a6..5939aca 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -1567,7 +1567,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