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

Rebased-by: Joonas Kylmälä <joonas.kylmala@iki.fi>
Signed-off-by: Joonas Kylmälä <joonas.kylmala@iki.fi>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Martin Renvoize 2021-03-15 15:42:49 +00:00 committed by Tomas Cohen Arazi
parent 4a6567274d
commit 7b31a35824
No known key found for this signature in database
GPG Key ID: 0A272EA1B2F3C15F
1 changed files with 2 additions and 3 deletions

View File

@ -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( new_record_from_zebra );
@ -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 '' ) {