|
Lines 775-781
sub CancelExpiredReserves {
Link Here
|
| 775 |
|
775 |
|
| 776 |
my $dtf = Koha::Database->new->schema->storage->datetime_parser; |
776 |
my $dtf = Koha::Database->new->schema->storage->datetime_parser; |
| 777 |
my $params = { expirationdate => { '<', $dtf->format_date($today) } }; |
777 |
my $params = { expirationdate => { '<', $dtf->format_date($today) } }; |
| 778 |
$params->{found} = undef unless $expireWaiting; |
778 |
$params->{found} = { '!=' , 'W' } unless $expireWaiting; |
| 779 |
|
779 |
|
| 780 |
# FIXME To move to Koha::Holds->search_expired (?) |
780 |
# FIXME To move to Koha::Holds->search_expired (?) |
| 781 |
my $holds = Koha::Holds->search( $params ); |
781 |
my $holds = Koha::Holds->search( $params ); |
| 782 |
- |
|
|