Lines 26-31
use C4::Items;
Link Here
|
26 |
use C4::Koha; |
26 |
use C4::Koha; |
27 |
use C4::Biblio; |
27 |
use C4::Biblio; |
28 |
use C4::Circulation; |
28 |
use C4::Circulation; |
|
|
29 |
use C4::Reserves; |
29 |
use Encode; |
30 |
use Encode; |
30 |
use XML::LibXML; |
31 |
use XML::LibXML; |
31 |
use XML::LibXSLT; |
32 |
use XML::LibXSLT; |
Lines 173-180
sub buildKohaItemsNamespace {
Link Here
|
173 |
|
174 |
|
174 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = C4::Circulation::GetTransfers($item->{itemnumber}); |
175 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = C4::Circulation::GetTransfers($item->{itemnumber}); |
175 |
|
176 |
|
176 |
if ( $itemtypes->{ $item->{itype} }->{notforloan} || $item->{notforloan} || $item->{onloan} || $item->{wthdrawn} || $item->{itemlost} || $item->{damaged} || |
177 |
my ( $reservestatus, $reserveitem ) = C4::Reserves::CheckReserves($item->{itemnumber}); |
177 |
(defined $transfertwhen && $transfertwhen ne '') || $item->{itemnotforloan} ) { |
178 |
|
|
|
179 |
if ( $itemtypes->{ $item->{itype} }->{notforloan} || $item->{notforloan} || $item->{onloan} || $item->{wthdrawn} || $item->{itemlost} || $item->{damaged} || |
180 |
(defined $transfertwhen && $transfertwhen ne '') || $item->{itemnotforloan} || (defined $reservestatus && $reservestatus eq "Waiting") ){ |
178 |
if ( $item->{notforloan} < 0) { |
181 |
if ( $item->{notforloan} < 0) { |
179 |
$status = "On order"; |
182 |
$status = "On order"; |
180 |
} |
183 |
} |
Lines 196-201
sub buildKohaItemsNamespace {
Link Here
|
196 |
if (defined $transfertwhen && $transfertwhen ne '') { |
199 |
if (defined $transfertwhen && $transfertwhen ne '') { |
197 |
$status = 'In transit'; |
200 |
$status = 'In transit'; |
198 |
} |
201 |
} |
|
|
202 |
if (defined $reservestatus && $reservestatus eq "Waiting") { |
203 |
$status = 'Waiting'; |
204 |
} |
199 |
} else { |
205 |
} else { |
200 |
$status = "available"; |
206 |
$status = "available"; |
201 |
} |
207 |
} |