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

(-)a/C4/Circulation.pm (-1 / +1 lines)
Lines 2636-2642 sub MarkIssueReturned { Link Here
2636
        if (C4::Context->preference('AutoRemoveOverduesRestrictions') ne 'no' && $patron->is_debarred) {
2636
        if (C4::Context->preference('AutoRemoveOverduesRestrictions') ne 'no' && $patron->is_debarred) {
2637
            my $remove_restrictions =
2637
            my $remove_restrictions =
2638
                C4::Context->preference('AutoRemoveOverduesRestrictions') eq 'when_no_overdue_causing_debarment' ?
2638
                C4::Context->preference('AutoRemoveOverduesRestrictions') eq 'when_no_overdue_causing_debarment' ?
2639
                    !$patron->has_debarring_overdues({ issue_branchcode => $issue_branchcode }) :
2639
                    !$patron->has_restricting_overdues({ issue_branchcode => $issue_branchcode }) :
2640
                    !$patron->has_overdues;
2640
                    !$patron->has_overdues;
2641
            if (
2641
            if (
2642
                $remove_restrictions && $overdue_restrictions->count
2642
                $remove_restrictions && $overdue_restrictions->count
(-)a/Koha/Patron.pm (-4 / +3 lines)
Lines 1000-1014 sub has_overdues { Link Here
1000
}
1000
}
1001
1001
1002
1002
1003
=head3 has_debarring_overdues
1003
=head3 has_restricting_overdues
1004
1004
1005
my $has_debarring_overdues = $patron->has_debarring_overdues({ issue_branchcode => $branchcode });
1005
my $has_restricting_overdues = $patron->has_restricting_overdues({ issue_branchcode => $branchcode });
1006
1006
1007
Returns true if patron has overdues that would result in debarment.
1007
Returns true if patron has overdues that would result in debarment.
1008
1008
1009
=cut
1009
=cut
1010
1010
1011
sub has_debarring_overdues {
1011
sub has_restricting_overdues {
1012
    my ($self, $params) = @_;
1012
    my ($self, $params) = @_;
1013
    $params //= {};
1013
    $params //= {};
1014
    my $date = dt_from_string()->truncate( to => 'day' );
1014
    my $date = dt_from_string()->truncate( to => 'day' );
1015
- 

Return to bug 29145