3 # Copyright 2010 Biblibre SARL
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
25 # find Koha's Perl modules
26 # test carefully before changing this
28 eval { require "$FindBin::Bin/../kohalib.pl" };
44 my $usage = << 'ENDUSAGE';
45 This script delete old suggestions
48 -days TTT to define the age of suggestions to delete
52 $usage .= $0 . " -days 30\n";
54 # If this script is called without the 'days' parameter, we use the system preferences value instead.
55 if ( !defined($days) && !$help ) {
57 C4::Context->preference('PurgeSuggestionsOlderThan') || q{};
58 if ( $purge_sugg_days ne q{} and $purge_sugg_days >= 0 ) {
59 $days = $purge_sugg_days;
63 # If this script is called with the 'help' parameter, we show up the help message and we leave the script without doing anything.
69 if ( defined($days) && $days ne q{} && $days > 0 ) {
71 DelSuggestionsOlderThan($days);
73 elsif (!defined($days)){
76 elsif ( $days == 0 ) {
77 warn "This script is not executed with 0 days. Aborted.\n";
80 warn "This script requires a positive number of days. Aborted.\n";