Lines 246-251
sub checkin {
Link Here
|
246 |
delete $item->{borrowernumber}; |
246 |
delete $item->{borrowernumber}; |
247 |
delete $item->{due_date}; |
247 |
delete $item->{due_date}; |
248 |
$patron->{items} = [ grep { $_ ne $item_id } @{ $patron->{items} } ]; |
248 |
$patron->{items} = [ grep { $_ ne $item_id } @{ $patron->{items} } ]; |
|
|
249 |
# Check for overdue fines to display |
250 |
my $kohaitem = Koha::Items->find( { barcode => $item_id } ); |
251 |
if ($kohaitem) { |
252 |
my $charges = Koha::Account::Lines->search( |
253 |
{ |
254 |
borrowernumber => $patron->{borrowernumber}, |
255 |
amountoutstanding => { '>' => 0 }, |
256 |
accounttype => [ 'OVERDUE' ], |
257 |
itemnumber => $kohaitem->itemnumber |
258 |
}, |
259 |
); |
260 |
if ($charges) { |
261 |
$circ->screen_msg("You owe " . Koha::Number::Price->new( $charges->total_outstanding )->format({ with_symbol => 1}) . " for this item."); |
262 |
} |
263 |
} |
249 |
} else { |
264 |
} else { |
250 |
# Checkin failed: Wrongbranch or withdrawn? |
265 |
# Checkin failed: Wrongbranch or withdrawn? |
251 |
# Bug 10748 with pref BlockReturnOfLostItems adds another case to come |
266 |
# Bug 10748 with pref BlockReturnOfLostItems adds another case to come |
252 |
- |
|
|