Main Koha release repository
https://koha-community.org
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
314 lines
11 KiB
314 lines
11 KiB
#!/usr/bin/perl
|
|
|
|
# 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 Modern::Perl;
|
|
|
|
use Getopt::Long qw( GetOptions );
|
|
use Pod::Usage qw( pod2usage );
|
|
use DateTime;
|
|
use DateTime::Duration;
|
|
|
|
use C4::Context;
|
|
use C4::Letters;
|
|
use C4::Log qw( cronlogaction );
|
|
use Koha::DateUtils qw( dt_from_string );
|
|
use Koha::Calendar;
|
|
use Koha::Libraries;
|
|
use Koha::Notice::Templates;
|
|
use Koha::Patrons;
|
|
use Koha::Script -cron;
|
|
|
|
=head1 NAME
|
|
|
|
holds_reminder.pl - prepare reminder messages to be sent to patrons with waiting holds
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
holds_reminder.pl
|
|
-lettercode <notice to send>
|
|
[ -c ][ -v ][ -library <branchcode> ][ -library <branchcode> ... ]
|
|
[ -days <number of days> ][ -mtt <transport type> ... ][ -holidays ]
|
|
[ -date <YYYY-MM-DD> ]
|
|
|
|
Options:
|
|
-help brief help message
|
|
-man full documentation
|
|
-v verbose
|
|
-c --confirm confirm, if not set no email will be sent
|
|
-days <days> days waiting to deal with
|
|
-t --triggered include only holds <days> days waiting, and not longer
|
|
-lettercode <lettercode> predefined notice to use, default is HOLD_REMINDER
|
|
-library <branchname> only deal with holds from this library (repeatable : several libraries can be given)
|
|
-holidays use the calendar to not count holidays as waiting days
|
|
-mtt <message_transport_type> type of messages to send, default is to use patrons messaging preferences for Hold reminder
|
|
populating this will force send even if patron has not chosen to receive hold notices
|
|
email and sms will fallback to print if borrower does not have an address/phone
|
|
-date Send notices as would have been sent on a specific date
|
|
|
|
=head1 OPTIONS
|
|
|
|
=over 8
|
|
|
|
=item B<-help>
|
|
|
|
Print a brief help message and exits.
|
|
|
|
=item B<-man>
|
|
|
|
Prints the manual page and exits.
|
|
|
|
=item B<-v>
|
|
|
|
Verbose. Without this flag set, only fatal errors are reported.
|
|
|
|
=item B<--confirm | -c>
|
|
|
|
Confirm. Unless set this script does not send any email (test-mode).
|
|
If verbose and not confirm a list of notices that would have been sent to
|
|
the patrons are printed to standard out.
|
|
|
|
=item B<-days>
|
|
|
|
Optional parameter, number of days an items has been 'waiting' on hold
|
|
to send a message for. If not included a notice will be sent to all
|
|
patrons with waiting holds.
|
|
|
|
=item B<-triggered>
|
|
|
|
Optional parameter, only send notices for holds exactly <days> waiting.
|
|
If not included a notice will be sent to all patrons with waiting holds
|
|
equal to OR greater than <days>. This option is useful if the cron is
|
|
being run daily to avoid spamming the patrons.
|
|
|
|
=item B<-lettercode>
|
|
|
|
Optional parameter, choose a notice to use. Default is 'HOLD_REMINDER'.
|
|
|
|
=item B<-library>
|
|
|
|
select notices for one specific library. Use the value in the
|
|
branches.branchcode table. This option can be repeated in order
|
|
to select notices for a group of libraries.
|
|
|
|
=item B<-holidays>
|
|
|
|
This option determines whether library holidays are used when calculating how
|
|
long an item has been waiting. If enabled the count will skip closed days.
|
|
|
|
=item B<-date>
|
|
|
|
use it in order to send notices on a specific date and not Now. Format: YYYY-MM-DD.
|
|
|
|
=item B<-mtt>
|
|
|
|
send a notices via a specific transport, this can be repeated to send various notices.
|
|
If omitted the patron's messaging preferences for Hold notices will be used.
|
|
If supplied the notice types will be force sent even if patron has not selected hold notices
|
|
Email and SMS will fall back to print if there is no valid info in the patron's account
|
|
|
|
|
|
=back
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This script is designed to alert patrons of waiting
|
|
holds.
|
|
|
|
=head2 Configuration
|
|
|
|
This script sends reminders to patrons with waiting holds using a notice
|
|
defined in the Tools->Notices & slips module within Koha. The lettercode
|
|
is passed into this script and, along with other options, determine the content
|
|
of the notices sent to patrons.
|
|
|
|
|
|
=head1 USAGE EXAMPLES
|
|
|
|
C<holds_reminder.pl> - With no arguments the simple help is printed
|
|
|
|
C<holds_reminder.pl > In this most basic usage all
|
|
libraries are processed individually, and notices are prepared for
|
|
all patrons with waiting holds for whom we have email addresses.
|
|
Messages for those patrons for whom we have no email
|
|
address are sent in a single attachment to the library administrator's
|
|
email address, or to the address in the KohaAdminEmailAddress system
|
|
preference.
|
|
|
|
C<holds_reminder.pl -n -csv /tmp/holds_reminder.csv> - sends no email and
|
|
populates F</tmp/holds_reminder.csv> with information about all waiting holds
|
|
items.
|
|
|
|
C<holds_reminder.pl -library MAIN -days 14> - prepare notices of
|
|
holds waiting for 2 weeks for the MAIN library.
|
|
|
|
C<holds_reminder.pl -lettercode LATE_HOLDS -library MAIN -days 14> - prepare notices of
|
|
holds waiting for 2 weeks for the MAIN library. Use lettercode 'LATE_HOLDS'
|
|
|
|
=cut
|
|
|
|
# These variables are set by command line options.
|
|
# They are initially set to default values.
|
|
my $dbh = C4::Context->dbh();
|
|
my $help = 0;
|
|
my $man = 0;
|
|
my $verbose = 0;
|
|
my $confirm = 0;
|
|
my $days ;
|
|
my $triggered = 0;
|
|
my $lettercode;
|
|
my @branchcodes; # Branch(es) passed as parameter
|
|
my $use_calendar = 0;
|
|
my $date_input;
|
|
my $opt_out = 0;
|
|
my @mtts;
|
|
|
|
GetOptions(
|
|
'help|?' => \$help,
|
|
'man' => \$man,
|
|
'v' => \$verbose,
|
|
'c|confirm' => \$confirm,
|
|
'days=s' => \$days,
|
|
'triggered' => \$triggered,
|
|
'lettercode=s' => \$lettercode,
|
|
'library=s' => \@branchcodes,
|
|
'date=s' => \$date_input,
|
|
'holidays' => \$use_calendar,
|
|
'mtt=s' => \@mtts
|
|
);
|
|
pod2usage(1) if $help;
|
|
pod2usage( -verbose => 2 ) if $man;
|
|
|
|
$lettercode ||= 'HOLD_REMINDER';
|
|
|
|
cronlogaction();
|
|
|
|
# Unless a delay is specified by the user we target all waiting holds
|
|
unless (defined $days) {
|
|
$days=0;
|
|
}
|
|
|
|
# Unless one ore more branchcodes are passed we use all the branches
|
|
if (scalar @branchcodes > 0) {
|
|
my $branchcodes_word = scalar @branchcodes > 1 ? 'branches' : 'branch';
|
|
$verbose and warn "$branchcodes_word @branchcodes passed on parameter\n";
|
|
}
|
|
else {
|
|
@branchcodes = Koha::Libraries->search()->get_column('branchcode');
|
|
}
|
|
|
|
# If provided we run the report as if it had run on a specified date
|
|
my $date_to_run;
|
|
if ( $date_input ){
|
|
eval {
|
|
$date_to_run = dt_from_string( $date_input, 'iso' );
|
|
};
|
|
die "$date_input is not a valid date, aborting! Use a date in format YYYY-MM-DD."
|
|
if $@ or not $date_to_run;
|
|
}
|
|
else {
|
|
$date_to_run = dt_from_string();
|
|
}
|
|
|
|
my $waiting_date_static = $date_to_run->clone->subtract( days => $days );
|
|
|
|
# Loop through each branch
|
|
foreach my $branchcode (@branchcodes) { #BEGIN BRANCH LOOP
|
|
# Check that this branch has the letter code specified or skip this branch
|
|
|
|
# FIXME What if we don't want to default if the translated template does not exist?
|
|
my $template_exists = Koha::Notice::Templates->find_effective_template(
|
|
{
|
|
module => 'reserves',
|
|
code => $lettercode,
|
|
branchcode => $branchcode,
|
|
lang => 'default',
|
|
}
|
|
);
|
|
unless ($template_exists) {
|
|
$verbose and print qq|Message '$lettercode' content not found for $branchcode\n;
|
|
next;
|
|
}
|
|
|
|
# If respecting calendar get the correct waiting since date
|
|
my $waiting_date;
|
|
if( $use_calendar ){
|
|
my $calendar = Koha::Calendar->new( branchcode => $branchcode, days_mode => 'Calendar' );
|
|
my $duration = DateTime::Duration->new( days => -$days );
|
|
$waiting_date = $calendar->addDays($date_to_run,$duration); #Add negative of days
|
|
} else {
|
|
$waiting_date = $waiting_date_static;
|
|
}
|
|
|
|
# Find all the holds waiting since this date for the current branch
|
|
my $dtf = Koha::Database->new->schema->storage->datetime_parser;
|
|
my $waiting_since = $dtf->format_date( $waiting_date );
|
|
my $comparator = $triggered ? '=' : '<=';
|
|
my $reserves = Koha::Holds->search({
|
|
waitingdate => {$comparator => $waiting_since },
|
|
'me.branchcode' => $branchcode,
|
|
},{ prefetch => 'patron' });
|
|
|
|
$verbose and warn "No reserves found for $branchcode\n" unless $reserves->count;
|
|
next unless $reserves->count;
|
|
$verbose and warn $reserves->count . " reserves waiting since $waiting_since for $branchcode\n";
|
|
|
|
# We only want to send one notice per patron per branch - this variable will hold the completed borrowers
|
|
my %done;
|
|
|
|
# If passed message transports we force use those, otherwise we will use the patrons preferences
|
|
# for the 'Hold_Reminder' notice
|
|
my $sending_params = @mtts ? { message_transports => \@mtts } : { message_name => "Hold_Reminder" };
|
|
|
|
|
|
my %patrons;
|
|
while ( my $reserve = $reserves->next ) {
|
|
$patrons{$reserve->borrowernumber}->{patron} = $reserve->patron unless exists $patrons{$reserve->borrowernumber};
|
|
push @{$patrons{$reserve->borrowernumber}->{reserves}}, $reserve->reserve_id;
|
|
}
|
|
|
|
foreach my $borrowernumber (keys %patrons){
|
|
|
|
my $patron = $patrons{$borrowernumber}->{patron};
|
|
$verbose and print " borrower " . $patron->surname . ", " . $patron->firstname . " has " . scalar @{$patrons{$borrowernumber}->{reserves}} . " holds triggering notice.\n";
|
|
|
|
# Setup the notice information
|
|
my $letter_params = {
|
|
module => 'reserves',
|
|
letter_code => $lettercode,
|
|
borrowernumber => $patron->borrowernumber,
|
|
branchcode => $branchcode,
|
|
tables => {
|
|
borrowers => $patron->borrowernumber,
|
|
branches => $branchcode,
|
|
},
|
|
loops => {
|
|
reserves => $patrons{$borrowernumber}->{reserves}
|
|
},
|
|
};
|
|
$sending_params->{letter_params} = $letter_params;
|
|
$sending_params->{test_mode} = !$confirm;
|
|
my $result_text = $confirm ? "was sent" : "would have been sent";
|
|
# queue_notice queues the notices, falling back to print for email or SMS, and ignores phone (they are handled by Itiva)
|
|
my $result = $patron->queue_notice( $sending_params );
|
|
$verbose and print " borrower " . $patron->surname . ", " . $patron->firstname . " $result_text notices via: @{$result->{sent}}\n" if defined $result->{sent};
|
|
$verbose and print " borrower " . $patron->surname . ", " . $patron->firstname . " $result_text print fallback for: @{$result->{fallback}}\n" if defined $result->{fallback};
|
|
# Mark this borrower as completed
|
|
$done{$patron->borrowernumber} = 1;
|
|
}
|
|
|
|
|
|
} #END BRANCH LOOP
|
|
|