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:
parent
4a6567274d
commit
7b31a35824
|
|
@ -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 '' ) {
|
||||
|
|
|
|||
Loading…
Reference in New Issue