|
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 |
- |
|
|