|
Lines 1000-1014
sub has_overdues {
Link Here
|
| 1000 |
} |
1000 |
} |
| 1001 |
|
1001 |
|
| 1002 |
|
1002 |
|
| 1003 |
=head3 has_debarring_overdues |
1003 |
=head3 has_restricting_overdues |
| 1004 |
|
1004 |
|
| 1005 |
my $has_debarring_overdues = $patron->has_debarring_overdues({ issue_branchcode => $branchcode }); |
1005 |
my $has_restricting_overdues = $patron->has_restricting_overdues({ issue_branchcode => $branchcode }); |
| 1006 |
|
1006 |
|
| 1007 |
Returns true if patron has overdues that would result in debarment. |
1007 |
Returns true if patron has overdues that would result in debarment. |
| 1008 |
|
1008 |
|
| 1009 |
=cut |
1009 |
=cut |
| 1010 |
|
1010 |
|
| 1011 |
sub has_debarring_overdues { |
1011 |
sub has_restricting_overdues { |
| 1012 |
my ($self, $params) = @_; |
1012 |
my ($self, $params) = @_; |
| 1013 |
$params //= {}; |
1013 |
$params //= {}; |
| 1014 |
my $date = dt_from_string()->truncate( to => 'day' ); |
1014 |
my $date = dt_from_string()->truncate( to => 'day' ); |
| 1015 |
- |
|
|