|
Lines 999-1004
sub has_overdues {
Link Here
|
| 999 |
return $self->_result->issues->search({ date_due => { '<' => $dtf->format_datetime($date) } })->count; |
999 |
return $self->_result->issues->search({ date_due => { '<' => $dtf->format_datetime($date) } })->count; |
| 1000 |
} |
1000 |
} |
| 1001 |
|
1001 |
|
|
|
1002 |
|
| 1003 |
=head3 has_debarring_overdues |
| 1004 |
|
| 1005 |
my $has_debarring_overdues = $patron->has_debarring_overdues({ issue_branchcode => $branchcode }); |
| 1006 |
|
| 1007 |
Returns true if patron has overdues that would result in debarment. |
| 1008 |
|
| 1009 |
=cut |
| 1010 |
|
| 1002 |
sub has_debarring_overdues { |
1011 |
sub has_debarring_overdues { |
| 1003 |
my ($self, $params) = @_; |
1012 |
my ($self, $params) = @_; |
| 1004 |
$params //= {}; |
1013 |
$params //= {}; |
|
Lines 1067-1073
sub _get_overdue_debarred_delay {
Link Here
|
| 1067 |
return $overdue_rules->{"delay2"} if($overdue_rules->{"debarred2"}); |
1076 |
return $overdue_rules->{"delay2"} if($overdue_rules->{"debarred2"}); |
| 1068 |
return $overdue_rules->{"delay3"} if($overdue_rules->{"debarred3"}); |
1077 |
return $overdue_rules->{"delay3"} if($overdue_rules->{"debarred3"}); |
| 1069 |
} |
1078 |
} |
| 1070 |
return undef; |
|
|
| 1071 |
} |
1079 |
} |
| 1072 |
|
1080 |
|
| 1073 |
=head3 track_login |
1081 |
=head3 track_login |
| 1074 |
- |
|
|