From f71133222cc59d114a8cb56f60264f250a62ac42 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 07f796d..d0517d1 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -1700,7 +1700,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