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