From 20a3e5150d49366b85afa6039738af8d0b3c98d8 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 31 Oct 2014 08:18:28 -0400 Subject: [PATCH] Bug 8836 [QA Followup] - Don't transfer in items already in transit --- C4/RotatingCollections.pm | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/C4/RotatingCollections.pm b/C4/RotatingCollections.pm index 1299f2e..ea75eaa 100644 --- a/C4/RotatingCollections.pm +++ b/C4/RotatingCollections.pm @@ -447,7 +447,8 @@ sub TransferCollection { my @results; while ( my $item = $sth->fetchrow_hashref ) { my ($status) = CheckReserves( $item->{itemnumber} ); - transferbook( $colBranchcode, $item->{barcode}, my $ignore_reserves = 1 ) unless ( $status eq 'Waiting' ); + my @transfers = GetTransfers( $item->{itemnumber} ); + transferbook( $colBranchcode, $item->{barcode}, my $ignore_reserves = 1 ) unless ( $status eq 'Waiting' || @transfers ); } return 1; -- 1.7.2.5