From 6d8fa7ce687bad73a9abb61c464ab7680586bf3d Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Thu, 20 Feb 2014 10:06:36 -0500 Subject: [PATCH] Bug 11801: In transit hold items incorrectly labels as "Waiting to be pulled" on request.pl If an item needs to be transferred to fill a hold, the hold will be listed as 'Waiting to be pulled" while it is in transit. Test Plan: 1) Place a hold for pickup at another library 2) Check in the item, confirm the hold transfer 3) View the holds for that record ( request.pl ) 4) Note the priority is "In transit" and the status is 'Waiting to be pulled". 5) Apply this patch 6) Reload the holds page 7) Note the status is now "Item being transferred to $branch" --- reserve/request.pl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/reserve/request.pl b/reserve/request.pl index 1b303c7..a86e0e7 100755 --- a/reserve/request.pl +++ b/reserve/request.pl @@ -476,7 +476,12 @@ foreach my $biblionumber (@biblionumbers) { $reserve{'itemnumber'} = $res->{'itemnumber'}; $reserve{'wbrname'} = $branches->{$res->{'branchcode'}}->{'branchname'}; if($reserve{'holdingbranch'} eq $reserve{'wbrcode'}){ - $reserve{'atdestination'} = 1; + # Just because the holdingbranch matches the reserve branch doesn't mean the item + # has arrived at the destination, check for an open transfer for the item as well + my ( $transfertwhen, $transfertfrom, $transferto ) = C4::Circulation::GetTransfers( $res->{itemnumber} ); + if ( not $transferto or $transferto ne $res->{branchcode} ) { + $reserve{'atdestination'} = 1; + } } # set found to 1 if reserve is waiting for patron pickup $reserve{'found'} = 1 if $res->{'found'} eq 'W'; -- 1.7.10.4