@@ -, +, @@ --- misc/cronjobs/holds_reminder.pl | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) --- a/misc/cronjobs/holds_reminder.pl +++ a/misc/cronjobs/holds_reminder.pl @@ -47,7 +47,7 @@ holds_reminder.pl - prepare reminder messages to be sent to patrons with waiting holds_reminder.pl -lettercode - [ -n ][ -v ][ -library ][ -library ... ] + [ -c ][ -v ][ -library ][ -library ... ] [ -days ][ -mtt ... ][ -holidays ] [ -date ] @@ -55,7 +55,7 @@ holds_reminder.pl -help brief help message -man full documentation -v verbose - -n No email will be sent + -c --confirm confirm, if not set no email will be sent -days days waiting to deal with -lettercode predefined notice to use, default is HOLD_REMINDER -library only deal with holds from this library (repeatable : several libraries can be given) @@ -81,9 +81,10 @@ Prints the manual page and exits. Verbose. Without this flag set, only fatal errors are reported. -=item B<-n> +=item B<--confirm | -c> -Do not send any email (test-mode) . If verbose a list of notices that would have been sent to +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> @@ -164,7 +165,7 @@ my $dbh = C4::Context->dbh(); my $help = 0; my $man = 0; my $verbose = 0; -my $nomail = 0; +my $confirm = 0; my $days ; my $lettercode; my @branchcodes; # Branch(es) passed as parameter @@ -177,7 +178,7 @@ GetOptions( 'help|?' => \$help, 'man' => \$man, 'v' => \$verbose, - 'n' => \$nomail, + 'c|confirm' => \$confirm, 'days=s' => \$days, 'lettercode=s' => \$lettercode, 'library=s' => \@branchcodes, @@ -284,8 +285,8 @@ foreach my $branchcode (@branchcodes) { #BEGIN BRANCH LOOP }, }; $sending_params->{letter_params} = $letter_params; - $sending_params->{test_mode} = $nomail; - my $result_text = $nomail ? "would have been sent" : "was sent"; + $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}; --