Lines 2146-2151
sub searchResults {
Link Here
|
2146 |
# is item on the reserve shelf? |
2146 |
# is item on the reserve shelf? |
2147 |
my $reservestatus = ''; |
2147 |
my $reservestatus = ''; |
2148 |
|
2148 |
|
|
|
2149 |
# is item a waiting recall? |
2150 |
my $recallstatus = ''; |
2151 |
|
2149 |
unless ($item->{withdrawn} |
2152 |
unless ($item->{withdrawn} |
2150 |
|| $item->{itemlost} |
2153 |
|| $item->{itemlost} |
2151 |
|| $item->{damaged} |
2154 |
|| $item->{damaged} |
Lines 2167-2172
sub searchResults {
Link Here
|
2167 |
# |
2170 |
# |
2168 |
($transfertwhen, $transfertfrom, $transfertto) = C4::Circulation::GetTransfers($item->{itemnumber}); |
2171 |
($transfertwhen, $transfertfrom, $transfertto) = C4::Circulation::GetTransfers($item->{itemnumber}); |
2169 |
$reservestatus = C4::Reserves::GetReserveStatus( $item->{itemnumber} ); |
2172 |
$reservestatus = C4::Reserves::GetReserveStatus( $item->{itemnumber} ); |
|
|
2173 |
$recallstatus = Koha::Recalls->find({ itemnumber => $itemnumber->{itemnumber}, status => 'W' }); |
2170 |
} |
2174 |
} |
2171 |
|
2175 |
|
2172 |
# item is withdrawn, lost, damaged, not for loan, reserved or in transit |
2176 |
# item is withdrawn, lost, damaged, not for loan, reserved or in transit |
Lines 2175-2187
sub searchResults {
Link Here
|
2175 |
|| $item->{damaged} |
2179 |
|| $item->{damaged} |
2176 |
|| $item->{notforloan} |
2180 |
|| $item->{notforloan} |
2177 |
|| $reservestatus eq 'Waiting' |
2181 |
|| $reservestatus eq 'Waiting' |
|
|
2182 |
|| (defined $recallstatus) |
2178 |
|| ($transfertwhen ne '')) |
2183 |
|| ($transfertwhen ne '')) |
2179 |
{ |
2184 |
{ |
2180 |
$withdrawn_count++ if $item->{withdrawn}; |
2185 |
$withdrawn_count++ if $item->{withdrawn}; |
2181 |
$itemlost_count++ if $item->{itemlost}; |
2186 |
$itemlost_count++ if $item->{itemlost}; |
2182 |
$itemdamaged_count++ if $item->{damaged}; |
2187 |
$itemdamaged_count++ if $item->{damaged}; |
2183 |
$item_in_transit_count++ if $transfertwhen ne ''; |
2188 |
$item_in_transit_count++ if $transfertwhen ne ''; |
2184 |
$item_onhold_count++ if $reservestatus eq 'Waiting'; |
2189 |
$item_onhold_count++ if (($reservestatus eq 'Waiting') || (defined $recallstatus)); |
2185 |
$item->{status} = $item->{withdrawn} . "-" . $item->{itemlost} . "-" . $item->{damaged} . "-" . $item->{notforloan}; |
2190 |
$item->{status} = $item->{withdrawn} . "-" . $item->{itemlost} . "-" . $item->{damaged} . "-" . $item->{notforloan}; |
2186 |
|
2191 |
|
2187 |
# can place a hold on a item if |
2192 |
# can place a hold on a item if |
Lines 2204-2209
sub searchResults {
Link Here
|
2204 |
} |
2209 |
} |
2205 |
$other_items->{$key}->{intransit} = ( $transfertwhen ne '' ) ? 1 : 0; |
2210 |
$other_items->{$key}->{intransit} = ( $transfertwhen ne '' ) ? 1 : 0; |
2206 |
$other_items->{$key}->{onhold} = ($reservestatus) ? 1 : 0; |
2211 |
$other_items->{$key}->{onhold} = ($reservestatus) ? 1 : 0; |
|
|
2212 |
if (defined $recallstatus) { |
2213 |
$recallstatus = 'W'; |
2214 |
} |
2215 |
$other_items->{$key}->{onhold} = ($recallstatus) ? 1 : 0; |
2216 |
|
2207 |
$other_items->{$key}->{notforloan} = GetAuthorisedValueDesc('','',$item->{notforloan},'','',$notforloan_authorised_value) if $notforloan_authorised_value and $item->{notforloan}; |
2217 |
$other_items->{$key}->{notforloan} = GetAuthorisedValueDesc('','',$item->{notforloan},'','',$notforloan_authorised_value) if $notforloan_authorised_value and $item->{notforloan}; |
2208 |
$other_items->{$key}->{count}++ if $item->{$hbranch}; |
2218 |
$other_items->{$key}->{count}++ if $item->{$hbranch}; |
2209 |
$other_items->{$key}->{location} = $shelflocations->{ $item->{location} }; |
2219 |
$other_items->{$key}->{location} = $shelflocations->{ $item->{location} }; |