From 88f7d9f89cb07e8d253571199435e3600f1eb768 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Joonas=20Kylm=C3=A4l=C3=A4?= <joonas.kylmala@helsinki.fi>
Date: Wed, 22 Jul 2020 15:44:31 +0000
Subject: [PATCH] Bug 12556: reserves/request.pl: Reuse code from Koha::Hold

Signed-off-by: Timothy Alexis Vass <timothy_alexis.vass@ub.lu.se>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 reserve/request.pl | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

diff --git a/reserve/request.pl b/reserve/request.pl
index 688cb82d97..3de92dd848 100755
--- a/reserve/request.pl
+++ b/reserve/request.pl
@@ -663,19 +663,7 @@ foreach my $biblionumber (@biblionumbers) {
             $reserve{'wbrcode'}       = $res->branchcode();
             $reserve{'itemnumber'}    = $res->itemnumber();
             $reserve{'wbrname'}       = $res->branch()->branchname();
-
-            if ( $reserve{'holdingbranch'} eq $reserve{'wbrcode'} ) {
-
-                # 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{'atdestination'} = $res->is_at_destination();
             $reserve{'found'}     = $res->is_found();
             $reserve{'intransit'} = $res->is_in_transit();
         }
-- 
2.39.5