From 1d7622a90ff73280e5e8bfa720963526c4ab2c0a Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Fri, 31 Oct 2014 08:18:28 -0400
Subject: [PATCH] Bug 8836 [QA Followup] - Don't transfer in items already in
 transit

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
---
 C4/RotatingCollections.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/C4/RotatingCollections.pm b/C4/RotatingCollections.pm
index f2879946ce..5126175583 100644
--- a/C4/RotatingCollections.pm
+++ b/C4/RotatingCollections.pm
@@ -435,7 +435,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;
-- 
2.39.5