use C4::Items;
use C4::Koha;
use C4::Biblio;
+use C4::Circulation;
use XML::LibXML;
use XML::LibXSLT;
my $xml;
for my $item (@items) {
my $status;
- if ( $item->{notforloan} == -1 || $item->{onloan} || $item->{wthdrawn} || $item->{itemlost} || $item->{damaged}) {
+ my ( $transfertwhen, $transfertfrom, $transfertto ) = C4::Circulation::GetTransfers($item->{itemnumber});
+ if ( $item->{notforloan} == -1 || $item->{onloan} || $item->{wthdrawn} || $item->{itemlost} || $item->{damaged} ||
+ ($transfertwhen ne '') || $item->{itemnotforloan} ) {
if ( $item->{notforloan} == -1) {
$status = "On order";
+ }
+ if ( $item->{itemnotforloan} ) {
+ $status = "Not for loan";
}
if ($item->{onloan}) {
- $status = "On loan";
+ $status = "Checked out";
}
if ( $item->{wthdrawn}) {
$status = "Withdrawn";
if ($item->{damaged}) {
$status = "Damaged";
}
+ if ($transfertwhen ne '') {
+ $status = 'In transit';
+ }
} else {
$status = "available";
}