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