|
Lines 28-34
use C4::Dates qw(format_date);
Link Here
|
| 28 |
use C4::Members qw(GetHideLostItemsPreference); |
28 |
use C4::Members qw(GetHideLostItemsPreference); |
| 29 |
use C4::XSLT; |
29 |
use C4::XSLT; |
| 30 |
use C4::Branch; |
30 |
use C4::Branch; |
| 31 |
use C4::Reserves; # CheckReserves |
31 |
use C4::Reserves; # GetReserveStatus |
| 32 |
use C4::Debug; |
32 |
use C4::Debug; |
| 33 |
use C4::Charset; |
33 |
use C4::Charset; |
| 34 |
use YAML; |
34 |
use YAML; |
|
Lines 1854-1861
sub searchResults {
Link Here
|
| 1854 |
my ($transfertfrom, $transfertto); |
1854 |
my ($transfertfrom, $transfertto); |
| 1855 |
|
1855 |
|
| 1856 |
# is item on the reserve shelf? |
1856 |
# is item on the reserve shelf? |
| 1857 |
my $reservestatus = ''; |
1857 |
my $reservestatus = ''; |
| 1858 |
my $reserveitem; |
|
|
| 1859 |
|
1858 |
|
| 1860 |
unless ($item->{wthdrawn} |
1859 |
unless ($item->{wthdrawn} |
| 1861 |
|| $item->{itemlost} |
1860 |
|| $item->{itemlost} |
|
Lines 1876-1882
sub searchResults {
Link Here
|
| 1876 |
# should map transit status to record indexed in Zebra. |
1875 |
# should map transit status to record indexed in Zebra. |
| 1877 |
# |
1876 |
# |
| 1878 |
($transfertwhen, $transfertfrom, $transfertto) = C4::Circulation::GetTransfers($item->{itemnumber}); |
1877 |
($transfertwhen, $transfertfrom, $transfertto) = C4::Circulation::GetTransfers($item->{itemnumber}); |
| 1879 |
($reservestatus, $reserveitem, undef) = C4::Reserves::CheckReserves($item->{itemnumber}); |
1878 |
$reservestatus = C4::Reserves::GetReserveStatus( $item->{itemnumber}, $oldbiblio->{biblionumber} ); |
| 1880 |
} |
1879 |
} |
| 1881 |
|
1880 |
|
| 1882 |
# item is withdrawn, lost, damaged, not for loan, reserved or in transit |
1881 |
# item is withdrawn, lost, damaged, not for loan, reserved or in transit |
|
Lines 1884-1897
sub searchResults {
Link Here
|
| 1884 |
|| $item->{itemlost} |
1883 |
|| $item->{itemlost} |
| 1885 |
|| $item->{damaged} |
1884 |
|| $item->{damaged} |
| 1886 |
|| $item->{notforloan} |
1885 |
|| $item->{notforloan} |
| 1887 |
|| $reservestatus eq 'Waiting' |
1886 |
|| $reservestatus eq 'Waiting' |
| 1888 |
|| ($transfertwhen ne '')) |
1887 |
|| ($transfertwhen ne '')) |
| 1889 |
{ |
1888 |
{ |
| 1890 |
$wthdrawn_count++ if $item->{wthdrawn}; |
1889 |
$wthdrawn_count++ if $item->{wthdrawn}; |
| 1891 |
$itemlost_count++ if $item->{itemlost}; |
1890 |
$itemlost_count++ if $item->{itemlost}; |
| 1892 |
$itemdamaged_count++ if $item->{damaged}; |
1891 |
$itemdamaged_count++ if $item->{damaged}; |
| 1893 |
$item_in_transit_count++ if $transfertwhen ne ''; |
1892 |
$item_in_transit_count++ if $transfertwhen ne ''; |
| 1894 |
$item_onhold_count++ if $reservestatus eq 'Waiting'; |
1893 |
$item_onhold_count++ if $reservestatus eq 'Waiting'; |
| 1895 |
$item->{status} = $item->{wthdrawn} . "-" . $item->{itemlost} . "-" . $item->{damaged} . "-" . $item->{notforloan}; |
1894 |
$item->{status} = $item->{wthdrawn} . "-" . $item->{itemlost} . "-" . $item->{damaged} . "-" . $item->{notforloan}; |
| 1896 |
|
1895 |
|
| 1897 |
# can place hold on item ? |
1896 |
# can place hold on item ? |