|
Lines 918-926
Returns the number of patron's overdues
Link Here
|
| 918 |
=cut |
918 |
=cut |
| 919 |
|
919 |
|
| 920 |
sub has_overdues { |
920 |
sub has_overdues { |
| 921 |
my ($self) = @_; |
921 |
my ($self, $params) = @_; |
|
|
922 |
my $date = dt_from_string(); |
| 923 |
|
| 924 |
# If ignoring unrestricted overdues, calculate which delay value for |
| 925 |
# overdue messages is set with restrictions. Then only include overdue |
| 926 |
# issues older than that date when counting. |
| 927 |
if($params->{ignore_unrestricted}) { |
| 928 |
my $branchcode = $params->{issue_branchcode}; |
| 929 |
my $date_offset = _get_overdue_restrict_delay($params->{issue_branchcode}, $self->categorycode()); |
| 930 |
$date->subtract(days => $date_offset); |
| 931 |
} |
| 932 |
|
| 922 |
my $dtf = Koha::Database->new->schema->storage->datetime_parser; |
933 |
my $dtf = Koha::Database->new->schema->storage->datetime_parser; |
| 923 |
return $self->_result->issues->search({ date_due => { '<' => $dtf->format_datetime( dt_from_string() ) } })->count; |
934 |
return $self->_result->issues->search({ date_due => { '<' => $dtf->format_datetime( $date )} })->count; |
|
|
935 |
} |
| 936 |
|
| 937 |
# Fetch first delayX value from overduerules where debarredX is set, or 0 for no delay |
| 938 |
sub _get_overdue_restrict_delay { |
| 939 |
my ($branchcode, $categorycode) = @_; |
| 940 |
my $dbh = C4::Context->dbh(); |
| 941 |
|
| 942 |
my $query = "SELECT * FROM overduerules WHERE delay1 IS NOT NULL AND branchcode = ? AND categorycode = ?"; |
| 943 |
|
| 944 |
my $rqoverduerules = $dbh->prepare($query); |
| 945 |
$rqoverduerules->execute($branchcode, $categorycode); |
| 946 |
|
| 947 |
# We get default rules if there is no rule for this branch |
| 948 |
if($rqoverduerules->rows == 0){ |
| 949 |
$query = "SELECT * FROM overduerules WHERE delay1 IS NOT NULL AND branchcode = '' AND categorycode = ?"; |
| 950 |
|
| 951 |
$rqoverduerules = $dbh->prepare($query); |
| 952 |
$rqoverduerules->execute($categorycode); |
| 953 |
} |
| 954 |
|
| 955 |
while ( my $overdue_rules = $rqoverduerules->fetchrow_hashref ) { |
| 956 |
return $overdue_rules->{"delay1"} if($overdue_rules->{"debarred1"}); |
| 957 |
return $overdue_rules->{"delay2"} if($overdue_rules->{"debarred2"}); |
| 958 |
return $overdue_rules->{"delay3"} if($overdue_rules->{"debarred3"}); |
| 959 |
} |
| 960 |
|
| 961 |
return 0; |
| 924 |
} |
962 |
} |
| 925 |
|
963 |
|
| 926 |
=head3 track_login |
964 |
=head3 track_login |