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

(-)a/C4/Circulation.pm (-1 / +1 lines)
Lines 2629-2635 sub MarkIssueReturned { Link Here
2629
        if (C4::Context->preference('AutoRemoveOverduesRestrictions') ne 'no' && $patron->is_debarred) {
2629
        if (C4::Context->preference('AutoRemoveOverduesRestrictions') ne 'no' && $patron->is_debarred) {
2630
            my $remove_restrictions =
2630
            my $remove_restrictions =
2631
                C4::Context->preference('AutoRemoveOverduesRestrictions') eq 'when_no_overdue_causing_debarment' ?
2631
                C4::Context->preference('AutoRemoveOverduesRestrictions') eq 'when_no_overdue_causing_debarment' ?
2632
                    !$patron->has_debarring_overdues({ issue_branchcode => $issue_branchcode }) :
2632
                    !$patron->has_restricting_overdues({ issue_branchcode => $issue_branchcode }) :
2633
                    !$patron->has_overdues;
2633
                    !$patron->has_overdues;
2634
            if (
2634
            if (
2635
                $remove_restrictions && $overdue_restrictions->count
2635
                $remove_restrictions && $overdue_restrictions->count
(-)a/Koha/Patron.pm (-4 / +3 lines)
Lines 1015-1029 sub has_overdues { Link Here
1015
}
1015
}
1016
1016
1017
1017
1018
=head3 has_debarring_overdues
1018
=head3 has_restricting_overdues
1019
1019
1020
my $has_debarring_overdues = $patron->has_debarring_overdues({ issue_branchcode => $branchcode });
1020
my $has_restricting_overdues = $patron->has_restricting_overdues({ issue_branchcode => $branchcode });
1021
1021
1022
Returns true if patron has overdues that would result in debarment.
1022
Returns true if patron has overdues that would result in debarment.
1023
1023
1024
=cut
1024
=cut
1025
1025
1026
sub has_debarring_overdues {
1026
sub has_restricting_overdues {
1027
    my ($self, $params) = @_;
1027
    my ($self, $params) = @_;
1028
    $params //= {};
1028
    $params //= {};
1029
    my $date = dt_from_string()->truncate( to => 'day' );
1029
    my $date = dt_from_string()->truncate( to => 'day' );
1030
- 

Return to bug 29145