|
Lines 808-814
sub CancelExpiredReserves {
Link Here
|
| 808 |
|
808 |
|
| 809 |
my $dtf = Koha::Database->new->schema->storage->datetime_parser; |
809 |
my $dtf = Koha::Database->new->schema->storage->datetime_parser; |
| 810 |
my $params = { expirationdate => { '<', $dtf->format_date($today) } }; |
810 |
my $params = { expirationdate => { '<', $dtf->format_date($today) } }; |
| 811 |
$params->{found} = undef unless $expireWaiting; |
811 |
$params->{found} = { '!=' , 'W' } unless $expireWaiting; |
| 812 |
|
812 |
|
| 813 |
# FIXME To move to Koha::Holds->search_expired (?) |
813 |
# FIXME To move to Koha::Holds->search_expired (?) |
| 814 |
my $holds = Koha::Holds->search( $params ); |
814 |
my $holds = Koha::Holds->search( $params ); |
| 815 |
- |
|
|