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