f7190f48aa
This patch is a new script that delete suggestion that have be processed by librarians. It take on argument, it's a number of days to keep suggestions. Suggestions olders than TODAY - $days will be deleted. This script should be used to purge suggestions and clean the table in intranet. Signed-off-by: Julian Maurice <julian.maurice@biblibre.com> Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
60 lines
1.4 KiB
Perl
Executable file
60 lines
1.4 KiB
Perl
Executable file
#!/usr/bin/perl -w
|
|
|
|
# Copyright 2010 Biblibre SARL
|
|
#
|
|
# 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.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
|
|
BEGIN {
|
|
|
|
# find Koha's Perl modules
|
|
# test carefully before changing this
|
|
use FindBin;
|
|
eval { require "$FindBin::Bin/../kohalib.pl" };
|
|
}
|
|
|
|
use Getopt::Long;
|
|
use Pod::Usage;
|
|
use C4::Suggestions;
|
|
|
|
my ($help, $days);
|
|
|
|
GetOptions(
|
|
'help|?' => \$help,
|
|
'days=s' => \$days,
|
|
);
|
|
|
|
if($help or not $days){
|
|
print <<EOF
|
|
This script delete olds suggestions
|
|
Parameters :
|
|
-help|? This message
|
|
-days TTT to define the age of suggestions to delete
|
|
|
|
example :
|
|
export PERL5LIB=/path/to/koha;export KOHA_CONF=/etc/koha/koha-conf.xml;./purge_suggestions.pl -days 30
|
|
EOF
|
|
;
|
|
exit;
|
|
}
|
|
|
|
if($days){
|
|
DelSuggestionsOlderThan($days);
|
|
}
|
|
|