View | Details | Raw Unified | Return to bug 24295
Collapse All | Expand All

(-)a/Koha/Z3950Responder/Session.pm (-4 / +2 lines)
Lines 19-25 package Koha::Z3950Responder::Session; Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use C4::Circulation qw( GetTransfers );
23
use C4::Context;
22
use C4::Context;
24
use C4::Reserves qw( GetReserveStatus );
23
use C4::Reserves qw( GetReserveStatus );
25
use C4::Search qw();
24
use C4::Search qw();
Lines 286-293 sub add_item_status { Link Here
286
        push @statuses, $status_strings->{WITHDRAWN};
285
        push @statuses, $status_strings->{WITHDRAWN};
287
    }
286
    }
288
287
289
    if ( scalar( GetTransfers( $itemnumber ) ) ) {
288
    if ( my $transfer = $item->get_transfer ) {
290
        push @statuses, $status_strings->{IN_TRANSIT};
289
        push @statuses, $status_strings->{IN_TRANSIT} if $transfer->in_transit;
291
    }
290
    }
292
291
293
    if ( GetReserveStatus( $itemnumber ) ne '' ) {
292
    if ( GetReserveStatus( $itemnumber ) ne '' ) {
294
- 

Return to bug 24295