|
Lines 985-990
sub has_overdues {
Link Here
|
| 985 |
return $self->_result->issues->search({ date_due => { '<' => $dtf->format_datetime($date) } })->count; |
985 |
return $self->_result->issues->search({ date_due => { '<' => $dtf->format_datetime($date) } })->count; |
| 986 |
} |
986 |
} |
| 987 |
|
987 |
|
|
|
988 |
|
| 989 |
=head3 has_debarring_overdues |
| 990 |
|
| 991 |
my $has_debarring_overdues = $patron->has_debarring_overdues({ issue_branchcode => $branchcode }); |
| 992 |
|
| 993 |
Returns true if patron has overdues that would result in debarment. |
| 994 |
|
| 995 |
=cut |
| 996 |
|
| 988 |
sub has_debarring_overdues { |
997 |
sub has_debarring_overdues { |
| 989 |
my ($self, $params) = @_; |
998 |
my ($self, $params) = @_; |
| 990 |
$params //= {}; |
999 |
$params //= {}; |
|
Lines 1053-1059
sub _get_overdue_debarred_delay {
Link Here
|
| 1053 |
return $overdue_rules->{"delay2"} if($overdue_rules->{"debarred2"}); |
1062 |
return $overdue_rules->{"delay2"} if($overdue_rules->{"debarred2"}); |
| 1054 |
return $overdue_rules->{"delay3"} if($overdue_rules->{"debarred3"}); |
1063 |
return $overdue_rules->{"delay3"} if($overdue_rules->{"debarred3"}); |
| 1055 |
} |
1064 |
} |
| 1056 |
return undef; |
|
|
| 1057 |
} |
1065 |
} |
| 1058 |
|
1066 |
|
| 1059 |
=head3 track_login |
1067 |
=head3 track_login |
| 1060 |
- |
|
|