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