Lines 864-870
sub CancelExpiredReserves {
Link Here
|
864 |
my $dbh = C4::Context->dbh; |
864 |
my $dbh = C4::Context->dbh; |
865 |
my $sth = $dbh->prepare( " |
865 |
my $sth = $dbh->prepare( " |
866 |
SELECT * FROM reserves WHERE DATE(expirationdate) < DATE( CURDATE() ) |
866 |
SELECT * FROM reserves WHERE DATE(expirationdate) < DATE( CURDATE() ) |
867 |
AND expirationdate IS NOT NULL |
867 |
AND expirationdate IS NOT NULL |
|
|
868 |
AND found IS NULL |
868 |
" ); |
869 |
" ); |
869 |
$sth->execute(); |
870 |
$sth->execute(); |
870 |
|
871 |
|
871 |
- |
|
|