|
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 |
- |
|
|