|
Lines 281-286
my $man = 0;
Link Here
|
| 281 |
my $verbose = 0; |
281 |
my $verbose = 0; |
| 282 |
my $nomail = 0; |
282 |
my $nomail = 0; |
| 283 |
my $MAX = 90; |
283 |
my $MAX = 90; |
|
|
284 |
my $test_mode = 0; |
| 284 |
my @branchcodes; # Branch(es) passed as parameter |
285 |
my @branchcodes; # Branch(es) passed as parameter |
| 285 |
my @emails_to_use; # Emails to use for messaging |
286 |
my @emails_to_use; # Emails to use for messaging |
| 286 |
my @emails; # Emails given in command-line parameters |
287 |
my @emails; # Emails given in command-line parameters |
|
Lines 307-312
GetOptions(
Link Here
|
| 307 |
'itemscontent=s' => \$itemscontent, |
308 |
'itemscontent=s' => \$itemscontent, |
| 308 |
'list-all' => \$listall, |
309 |
'list-all' => \$listall, |
| 309 |
't|triggered' => \$triggered, |
310 |
't|triggered' => \$triggered, |
|
|
311 |
'test' => \$test_mode, |
| 310 |
'date=s' => \$date_input, |
312 |
'date=s' => \$date_input, |
| 311 |
'borcat=s' => \@myborcat, |
313 |
'borcat=s' => \@myborcat, |
| 312 |
'borcatout=s' => \@myborcatout, |
314 |
'borcatout=s' => \@myborcatout, |
|
Lines 315-321
GetOptions(
Link Here
|
| 315 |
pod2usage(1) if $help; |
317 |
pod2usage(1) if $help; |
| 316 |
pod2usage( -verbose => 2 ) if $man; |
318 |
pod2usage( -verbose => 2 ) if $man; |
| 317 |
|
319 |
|
| 318 |
cronlogaction(); |
320 |
cronlogaction() unless $test_mode; |
| 319 |
|
321 |
|
| 320 |
if ( defined $csvfilename && $csvfilename =~ /^-/ ) { |
322 |
if ( defined $csvfilename && $csvfilename =~ /^-/ ) { |
| 321 |
warn qq(using "$csvfilename" as filename, that seems odd); |
323 |
warn qq(using "$csvfilename" as filename, that seems odd); |
|
Lines 600-606
END_SQL
Link Here
|
| 600 |
type => 'OVERDUES', |
602 |
type => 'OVERDUES', |
| 601 |
comment => "OVERDUES_PROCESS " . output_pref( dt_from_string() ), |
603 |
comment => "OVERDUES_PROCESS " . output_pref( dt_from_string() ), |
| 602 |
} |
604 |
} |
| 603 |
); |
605 |
) unless $test_mode; |
| 604 |
$verbose and warn "debarring $borr\n"; |
606 |
$verbose and warn "debarring $borr\n"; |
| 605 |
} |
607 |
} |
| 606 |
my @params = ($borrowernumber); |
608 |
my @params = ($borrowernumber); |
|
Lines 757-763
END_SQL
Link Here
|
| 757 |
from_address => $admin_email_address, |
759 |
from_address => $admin_email_address, |
| 758 |
to_address => join(',', @emails_to_use), |
760 |
to_address => join(',', @emails_to_use), |
| 759 |
} |
761 |
} |
| 760 |
); |
762 |
) unless $test_mode; |
| 761 |
# A print notice should be sent only once per overdue level. |
763 |
# A print notice should be sent only once per overdue level. |
| 762 |
# Without this check, a print could be sent twice or more if the library checks sms and email and print and the patron has no email or sms number. |
764 |
# Without this check, a print could be sent twice or more if the library checks sms and email and print and the patron has no email or sms number. |
| 763 |
$print_sent = 1 if $effective_mtt eq 'print'; |
765 |
$print_sent = 1 if $effective_mtt eq 'print'; |
| 764 |
- |
|
|