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