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

(-)a/Koha/Account.pm (-3 lines)
Lines 39-45 use Koha::Account::DebitTypes; Link Here
39
use Koha::Exceptions;
39
use Koha::Exceptions;
40
use Koha::Exceptions::Account;
40
use Koha::Exceptions::Account;
41
use Koha::Plugins;
41
use Koha::Plugins;
42
use Koha::Patron::Debarments;
43
42
44
=head1 NAME
43
=head1 NAME
45
44
Lines 118-125 sub pay { Link Here
118
        }
117
        }
119
    );
118
    );
120
119
121
    Koha::Patron::Debarments::del_restrictions_after_payment({ borrowernumber => $self->{patron_id} });
122
123
    # NOTE: Pay historically always applied as much credit as it could to all
120
    # NOTE: Pay historically always applied as much credit as it could to all
124
    # existing outstanding debits, whether passed specific debits or otherwise.
121
    # existing outstanding debits, whether passed specific debits or otherwise.
125
    if ( $payment->amountoutstanding ) {
122
    if ( $payment->amountoutstanding ) {
(-)a/Koha/Account/Line.pm (-1 / +3 lines)
Lines 28-33 use Koha::Database; Link Here
28
use Koha::DateUtils qw( dt_from_string );
28
use Koha::DateUtils qw( dt_from_string );
29
use Koha::Exceptions::Account;
29
use Koha::Exceptions::Account;
30
use Koha::Items;
30
use Koha::Items;
31
use Koha::Patron::Debarments;
31
32
32
use base qw(Koha::Object Koha::Object::Mixin::AdditionalFields);
33
use base qw(Koha::Object Koha::Object::Mixin::AdditionalFields);
33
34
Lines 699-704 sub apply { Link Here
699
        }
700
        }
700
    });
701
    });
701
702
703
    Koha::Patron::Debarments::del_restrictions_after_payment({ borrowernumber => $self->borrowernumber });
704
702
    return $self;
705
    return $self;
703
}
706
}
704
707
705
- 

Return to bug 16223