|
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 item."); |
| 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 |
- |
|
|