Galen Charlton
21c7f786bf
* export C4::Reserves::CancelExpiredReserves * rename misc/cronjobs/cancel_expired_reserves.pl to misc/cronjobs/holds/cancel_expired_holds.pl * added cancel_expired_holds.pl to example crontab * fix staff crash if AllowHoldDateInFuture is on * expirationdate is now nullable instead of relying on 0000-00-00 Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
31 lines
989 B
Perl
Executable file
31 lines
989 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Copyright 2009-2010 Kyle Hall
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along with
|
|
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
|
|
# Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
BEGIN {
|
|
# find Koha's Perl modules
|
|
# test carefully before changing this
|
|
use FindBin;
|
|
eval { require "$FindBin::Bin/../kohalib.pl" };
|
|
}
|
|
|
|
# cancel all expired hold requests
|
|
|
|
use C4::Reserves;
|
|
|
|
CancelExpiredReserves();
|