|
Lines 1014-1019
sub has_overdues {
Link Here
|
| 1014 |
return $self->_result->issues->search({ date_due => { '<' => $dtf->format_datetime($date) } })->count; |
1014 |
return $self->_result->issues->search({ date_due => { '<' => $dtf->format_datetime($date) } })->count; |
| 1015 |
} |
1015 |
} |
| 1016 |
|
1016 |
|
|
|
1017 |
|
| 1018 |
=head3 has_debarring_overdues |
| 1019 |
|
| 1020 |
my $has_debarring_overdues = $patron->has_debarring_overdues({ issue_branchcode => $branchcode }); |
| 1021 |
|
| 1022 |
Returns true if patron has overdues that would result in debarment. |
| 1023 |
|
| 1024 |
=cut |
| 1025 |
|
| 1017 |
sub has_debarring_overdues { |
1026 |
sub has_debarring_overdues { |
| 1018 |
my ($self, $params) = @_; |
1027 |
my ($self, $params) = @_; |
| 1019 |
$params //= {}; |
1028 |
$params //= {}; |
|
Lines 1082-1088
sub _get_overdue_debarred_delay {
Link Here
|
| 1082 |
return $overdue_rules->{"delay2"} if($overdue_rules->{"debarred2"}); |
1091 |
return $overdue_rules->{"delay2"} if($overdue_rules->{"debarred2"}); |
| 1083 |
return $overdue_rules->{"delay3"} if($overdue_rules->{"debarred3"}); |
1092 |
return $overdue_rules->{"delay3"} if($overdue_rules->{"debarred3"}); |
| 1084 |
} |
1093 |
} |
| 1085 |
return undef; |
|
|
| 1086 |
} |
1094 |
} |
| 1087 |
|
1095 |
|
| 1088 |
=head3 track_login |
1096 |
=head3 track_login |
| 1089 |
- |
|
|