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( new_record_from_zebra ); |
24 |
use C4::Search qw( new_record_from_zebra ); |
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 |
- |
|
|