Lines 256-261
sub adjust {
Link Here
|
256 |
my $difference = $amount - $amount_before; |
256 |
my $difference = $amount - $amount_before; |
257 |
my $new_outstanding = $amount_outstanding_before + $difference; |
257 |
my $new_outstanding = $amount_outstanding_before + $difference; |
258 |
|
258 |
|
|
|
259 |
# Catch cases that require patron refunds |
260 |
if ( $new_outstanding < 0 ) { |
261 |
my $account = |
262 |
Koha::Patrons->find( $self->borrowernumber )->account; |
263 |
my $credit = $account->add_credit( |
264 |
{ |
265 |
amount => $new_outstanding * -1, |
266 |
description => 'Overpayment refund', |
267 |
type => 'credit', |
268 |
( $update_type eq 'fine_increment' ? ( item_id => $self->itemnumber ) : ()), |
269 |
} |
270 |
); |
271 |
$new_outstanding = 0; |
272 |
} |
273 |
|
259 |
# Update the account line |
274 |
# Update the account line |
260 |
$self->set( |
275 |
$self->set( |
261 |
{ |
276 |
{ |
262 |
- |
|
|