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

(-)a/Koha/Z3950Responder/Session.pm (-8 / +8 lines)
Lines 23-31 use Modern::Perl; Link Here
23
23
24
use C4::Circulation qw( GetTransfers );
24
use C4::Circulation qw( GetTransfers );
25
use C4::Context;
25
use C4::Context;
26
use C4::Items qw( GetItem );
27
use C4::Reserves qw( GetReserveStatus );
26
use C4::Reserves qw( GetReserveStatus );
28
use C4::Search qw();
27
use C4::Search qw();
28
29
use Koha::Items;
29
use Koha::Logger;
30
use Koha::Logger;
30
31
31
=head1 NAME
32
=head1 NAME
Lines 262-289 sub add_item_status { Link Here
262
    my $itemnumber = $field->subfield($itemnumber_subfield);
263
    my $itemnumber = $field->subfield($itemnumber_subfield);
263
    next unless $itemnumber;
264
    next unless $itemnumber;
264
265
265
    my $item = GetItem( $itemnumber );
266
    my $item = Koha::Items->find( $itemnumber );
266
    return unless $item;
267
    return unless $item;
267
268
268
    my @statuses;
269
    my @statuses;
269
270
270
    if ( $item->{onloan} ) {
271
    if ( $item->onloan() ) {
271
        push @statuses, $status_strings->{CHECKED_OUT};
272
        push @statuses, $status_strings->{CHECKED_OUT};
272
    }
273
    }
273
274
274
    if ( $item->{itemlost} ) {
275
    if ( $item->itemlost() ) {
275
        push @statuses, $status_strings->{LOST};
276
        push @statuses, $status_strings->{LOST};
276
    }
277
    }
277
278
278
    if ( $item->{notforloan} ) {
279
    if ( $item->notforloan() ) {
279
        push @statuses, $status_strings->{NOT_FOR_LOAN};
280
        push @statuses, $status_strings->{NOT_FOR_LOAN};
280
    }
281
    }
281
282
282
    if ( $item->{damaged} ) {
283
    if ( $item->damaged() ) {
283
        push @statuses, $status_strings->{DAMAGED};
284
        push @statuses, $status_strings->{DAMAGED};
284
    }
285
    }
285
286
286
    if ( $item->{withdrawn} ) {
287
    if ( $item->withdrawn() ) {
287
        push @statuses, $status_strings->{WITHDRAWN};
288
        push @statuses, $status_strings->{WITHDRAWN};
288
    }
289
    }
289
290
290
- 

Return to bug 13937