From e39cb9c0966242dc6462ab2d4832aa8bb60c0584 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Mon, 15 Mar 2021 15:42:49 +0000 Subject: [PATCH] Bug 24295: Remove GetTransfer from Z3950Responder Replace the GetTrasfer call in Z3950Responder/Session.pm with a call to the Koha::Item method 'get_transfer'. Test plan 1/ Configure your system to use the Z3950 responder 2/ Trigger an item transfer for an item 3/ Search for the item via Z3950 and varify the transfer status is set 4/ Apply the patch 5/ Repeat step 3 --- Koha/Z3950Responder/Session.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Koha/Z3950Responder/Session.pm b/Koha/Z3950Responder/Session.pm index 006bfaf2ac..871ca420e1 100644 --- a/Koha/Z3950Responder/Session.pm +++ b/Koha/Z3950Responder/Session.pm @@ -19,7 +19,6 @@ package Koha::Z3950Responder::Session; use Modern::Perl; -use C4::Circulation qw( GetTransfers ); use C4::Context; use C4::Reserves qw( GetReserveStatus ); use C4::Search qw(); @@ -286,8 +285,8 @@ sub add_item_status { push @statuses, $status_strings->{WITHDRAWN}; } - if ( scalar( GetTransfers( $itemnumber ) ) ) { - push @statuses, $status_strings->{IN_TRANSIT}; + if ( my $transfer = $item->get_transfer ) { + push @statuses, $status_strings->{IN_TRANSIT} if $transfer->in_transit; } if ( GetReserveStatus( $itemnumber ) ne '' ) { -- 2.20.1