Martin Renvoize
d2e189ca1c
This patch change Koha::Cron to be a more generic Koha::Script class and update all commanline driven scripts to use it. Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com> Signed-off-by: Josef Moravec <josef.moravec@gmail.com> Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io> Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
142 lines
3.8 KiB
Perl
Executable file
142 lines
3.8 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# Copyright (C) 2011 Tamil s.a.r.l.
|
|
#
|
|
# 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 3 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, see <http://www.gnu.org/licenses>.
|
|
|
|
use strict;
|
|
use warnings;
|
|
BEGIN {
|
|
# find Koha's Perl modules
|
|
# test carefully before changing this
|
|
use FindBin;
|
|
eval { require "$FindBin::Bin/../kohalib.pl" };
|
|
}
|
|
|
|
use Koha::Script;
|
|
use C4::Context;
|
|
use C4::Members::Messaging;
|
|
use Getopt::Long;
|
|
use Pod::Usage;
|
|
|
|
|
|
sub usage {
|
|
pod2usage( -verbose => 2 );
|
|
exit;
|
|
}
|
|
|
|
|
|
sub force_borrower_messaging_defaults {
|
|
my ($doit, $since, $not_expired, $no_overwrite, $category ) = @_;
|
|
|
|
$since = '0000-00-00' if (!$since);
|
|
print "Since: $since\n";
|
|
|
|
my $dbh = C4::Context->dbh;
|
|
$dbh->{AutoCommit} = 0;
|
|
|
|
my $sql =
|
|
q|SELECT DISTINCT bo.borrowernumber, bo.categorycode FROM borrowers bo
|
|
LEFT JOIN borrower_message_preferences mp USING (borrowernumber)
|
|
WHERE bo.dateenrolled >= ?|;
|
|
if ($not_expired) {
|
|
$sql .= " AND bo.dateexpiry >= NOW()"
|
|
}
|
|
if( $no_overwrite ) {
|
|
$sql .= " AND mp.borrowernumber IS NULL";
|
|
}
|
|
$sql .= " AND bo.categorycode = ?" if $category;
|
|
my $sth = $dbh->prepare($sql);
|
|
$sth->execute($since, $category || () );
|
|
my $cnt = 0;
|
|
while ( my ($borrowernumber, $categorycode) = $sth->fetchrow ) {
|
|
print "$borrowernumber: $categorycode\n";
|
|
next unless $doit;
|
|
C4::Members::Messaging::SetMessagingPreferencesFromDefaults( {
|
|
borrowernumber => $borrowernumber,
|
|
categorycode => $categorycode,
|
|
} );
|
|
$cnt++;
|
|
}
|
|
$dbh->commit();
|
|
print "Total borrowers updated: $cnt\n" if $doit;
|
|
}
|
|
|
|
|
|
my ( $doit, $since, $help, $not_expired, $no_overwrite, $category );
|
|
my $result = GetOptions(
|
|
'doit' => \$doit,
|
|
'since:s' => \$since,
|
|
'not-expired' => \$not_expired,
|
|
'no-overwrite' => \$no_overwrite,
|
|
'category:s' => \$category,
|
|
'help|h' => \$help,
|
|
);
|
|
|
|
usage() if $help;
|
|
|
|
force_borrower_messaging_defaults( $doit, $since, $not_expired, $no_overwrite, $category );
|
|
|
|
=head1 NAME
|
|
|
|
borrowers-force-messaging-defaults.pl
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
borrowers-force-messaging-defaults.pl
|
|
borrowers-force-messaging-defaults.pl --help
|
|
borrowers-force-messaging-defaults.pl --doit
|
|
borrowers-force-messaging-defaults.pl --doit --not-expired
|
|
borrowers-force-messaging-defaults.pl --doit --category PT
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
If the EnhancedMessagingPreferences syspref is enabled after borrowers have
|
|
been created in the DB, those borrowers won't have messaging transport
|
|
preferences default values as defined for their borrower category. So you would
|
|
have to modify each borrower one by one if you would like to send them 'Hold
|
|
Filled' notice for example.
|
|
|
|
This script creates/overwrites messaging preferences for all borrowers and sets
|
|
them to default values defined for the category they belong to (unless you
|
|
use the options -not-expired or -no-overwrite to update a subset).
|
|
|
|
=over 8
|
|
|
|
=item B<--help>
|
|
|
|
Prints this help
|
|
|
|
=item B<--doit>
|
|
|
|
Actually update the borrowers.
|
|
|
|
=item B<--not-expired>
|
|
|
|
Will only update active borrowers (borrowers who didn't pass their expiration date).
|
|
|
|
=item B<--no-overwrite>
|
|
|
|
Will only update patrons without messaging preferences and skip patrons that
|
|
already set their preferences.
|
|
|
|
=item B<--category>
|
|
|
|
Will only update patrons in the category specified.
|
|
|
|
=back
|
|
|
|
=cut
|