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

(-)a/Koha/Account.pm (-3 lines)
Lines 36-42 use Koha::Account::DebitTypes; Link Here
36
use Koha::Exceptions;
36
use Koha::Exceptions;
37
use Koha::Exceptions::Account;
37
use Koha::Exceptions::Account;
38
use Koha::Plugins;
38
use Koha::Plugins;
39
use Koha::Patron::Debarments;
40
39
41
=head1 NAME
40
=head1 NAME
42
41
Lines 103-110 sub pay { Link Here
103
        }
102
        }
104
    );
103
    );
105
104
106
    Koha::Patron::Debarments::del_restrictions_after_payment({ borrowernumber => $self->{patron_id} });
107
108
    # NOTE: Pay historically always applied as much credit as it could to all
105
    # NOTE: Pay historically always applied as much credit as it could to all
109
    # existing outstanding debits, whether passed specific debits or otherwise.
106
    # existing outstanding debits, whether passed specific debits or otherwise.
110
    if ( $payment->amountoutstanding ) {
107
    if ( $payment->amountoutstanding ) {
(-)a/Koha/Account/Line.pm (-1 / +3 lines)
Lines 29-34 use Koha::Database; Link Here
29
use Koha::DateUtils qw( dt_from_string );
29
use Koha::DateUtils qw( dt_from_string );
30
use Koha::Exceptions::Account;
30
use Koha::Exceptions::Account;
31
use Koha::Items;
31
use Koha::Items;
32
use Koha::Patron::Debarments;
32
33
33
use base qw(Koha::Object Koha::Object::Mixin::AdditionalFields);
34
use base qw(Koha::Object Koha::Object::Mixin::AdditionalFields);
34
35
Lines 701-706 sub apply { Link Here
701
        }
702
        }
702
    });
703
    });
703
704
705
    Koha::Patron::Debarments::del_restrictions_after_payment({ borrowernumber => $self->borrowernumber });
706
704
    return $self;
707
    return $self;
705
}
708
}
706
709
707
- 

Return to bug 16223