Lines 951-956
sub has_overdues {
Link Here
|
951 |
return $self->_result->issues->search({ date_due => { '<' => $dtf->format_datetime($date) } })->count; |
951 |
return $self->_result->issues->search({ date_due => { '<' => $dtf->format_datetime($date) } })->count; |
952 |
} |
952 |
} |
953 |
|
953 |
|
|
|
954 |
|
955 |
=head3 has_debarring_overdues |
956 |
|
957 |
my $has_debarring_overdues = $patron->has_debarring_overdues({ issue_branchcode => $branchcode }); |
958 |
|
959 |
Returns true if patron has overdues that would result in debarment. |
960 |
|
961 |
=cut |
962 |
|
954 |
sub has_debarring_overdues { |
963 |
sub has_debarring_overdues { |
955 |
my ($self, $params) = @_; |
964 |
my ($self, $params) = @_; |
956 |
$params //= {}; |
965 |
$params //= {}; |
Lines 1019-1025
sub _get_overdue_debarred_delay {
Link Here
|
1019 |
return $overdue_rules->{"delay2"} if($overdue_rules->{"debarred2"}); |
1028 |
return $overdue_rules->{"delay2"} if($overdue_rules->{"debarred2"}); |
1020 |
return $overdue_rules->{"delay3"} if($overdue_rules->{"debarred3"}); |
1029 |
return $overdue_rules->{"delay3"} if($overdue_rules->{"debarred3"}); |
1021 |
} |
1030 |
} |
1022 |
return undef; |
|
|
1023 |
} |
1031 |
} |
1024 |
|
1032 |
|
1025 |
=head3 track_login |
1033 |
=head3 track_login |
1026 |
- |
|
|