View | Details | Raw Unified | Return to bug 21727
Collapse All | Expand All

(-)a/Koha/Account/Line.pm (-1 / +15 lines)
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
- 

Return to bug 21727