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