Lines 47-53
overdue_notices.pl - prepare messages to be sent to patrons for overdue items
Link Here
|
47 |
|
47 |
|
48 |
=head1 SYNOPSIS |
48 |
=head1 SYNOPSIS |
49 |
|
49 |
|
50 |
overdue_notices.pl [ -n ] [ -library <branchcode> ] [ -library <branchcode>...] [ -max <number of days> ] [ -csv [ <filename> ] ] [ -itemscontent <field list> ] |
50 |
overdue_notices.pl |
|
|
51 |
[ -n ][ -library <branchcode> ][ -library <branchcode> ... ] |
52 |
[ -max <number of days> ][ -csv [<filename>] ][ -itemscontent <field list> ] |
53 |
[ -email <email_type> ... ] |
51 |
|
54 |
|
52 |
Options: |
55 |
Options: |
53 |
-help brief help message |
56 |
-help brief help message |
Lines 60-65
overdue_notices.pl [ -n ] [ -library <branchcode> ] [ -library <branchcode>...]
Link Here
|
60 |
-itemscontent <list of fields> item information in templates |
63 |
-itemscontent <list of fields> item information in templates |
61 |
-borcat <categorycode> category code that must be included |
64 |
-borcat <categorycode> category code that must be included |
62 |
-borcatout <categorycode> category code that must be excluded |
65 |
-borcatout <categorycode> category code that must be excluded |
|
|
66 |
-email <email_type> type of email that will be used. Can be 'email', 'emailpro' or 'B_email'. Repeatable. |
63 |
|
67 |
|
64 |
=head1 OPTIONS |
68 |
=head1 OPTIONS |
65 |
|
69 |
|
Lines 147-152
Choose list-all to include all overdue items in the list (limited by B<-max> set
Link Here
|
147 |
|
151 |
|
148 |
use it in order to send overdues on a specific date and not Now. |
152 |
use it in order to send overdues on a specific date and not Now. |
149 |
|
153 |
|
|
|
154 |
=item B<-email> |
155 |
|
156 |
Allows to specify which type of email will be used. Can be email, emailpro or B_email. Repeatable. |
157 |
|
150 |
=back |
158 |
=back |
151 |
|
159 |
|
152 |
=head1 DESCRIPTION |
160 |
=head1 DESCRIPTION |
Lines 256-261
my $verbose = 0;
Link Here
|
256 |
my $nomail = 0; |
264 |
my $nomail = 0; |
257 |
my $MAX = 90; |
265 |
my $MAX = 90; |
258 |
my @branchcodes; # Branch(es) passed as parameter |
266 |
my @branchcodes; # Branch(es) passed as parameter |
|
|
267 |
my @emails_to_use; # Emails to use for messaging |
268 |
my @emails; # Emails given in command-line parameters |
259 |
my $csvfilename; |
269 |
my $csvfilename; |
260 |
my $htmlfilename; |
270 |
my $htmlfilename; |
261 |
my $triggered = 0; |
271 |
my $triggered = 0; |
Lines 280-285
GetOptions(
Link Here
|
280 |
'date' => \$date, |
290 |
'date' => \$date, |
281 |
'borcat=s' => \@myborcat, |
291 |
'borcat=s' => \@myborcat, |
282 |
'borcatout=s' => \@myborcatout, |
292 |
'borcatout=s' => \@myborcatout, |
|
|
293 |
'email=s' => \@emails, |
283 |
) or pod2usage(2); |
294 |
) or pod2usage(2); |
284 |
pod2usage(1) if $help; |
295 |
pod2usage(1) if $help; |
285 |
pod2usage( -verbose => 2 ) if $man; |
296 |
pod2usage( -verbose => 2 ) if $man; |
Lines 478-483
END_SQL
Link Here
|
478 |
) = $sth->fetchrow ) |
489 |
) = $sth->fetchrow ) |
479 |
{ |
490 |
{ |
480 |
$verbose and warn "borrower $firstname, $lastname ($borrowernumber) has items triggering level $i."; |
491 |
$verbose and warn "borrower $firstname, $lastname ($borrowernumber) has items triggering level $i."; |
|
|
492 |
@emails_to_use = (); |
493 |
if ( @emails && !$nomail ) { |
494 |
my $memberinfos = C4::Members::GetMember(borrowernumber => $borrowernumber); |
495 |
foreach (@emails) { |
496 |
push @emails_to_use, $memberinfos->{$_} |
497 |
if ( defined $memberinfos->{$_} ); |
498 |
} |
499 |
$email = 1 if (@emails_to_use); |
500 |
} |
501 |
else { |
502 |
$email = |
503 |
C4::Members::GetFirstValidEmailAddress($borrowernumber); |
504 |
push @emails_to_use, $email; |
505 |
} |
506 |
|
507 |
my $letter = C4::Letters::getletter( 'circulation', $overdue_rules->{"letter$i"}, $branchcode ); |
508 |
|
509 |
unless ($letter) { |
510 |
$verbose and warn "Message '$overdue_rules->{letter$i}' content not found"; |
511 |
|
512 |
# might as well skip while PERIOD, no other borrowers are going to work. |
513 |
# FIXME : Does this mean a letter must be defined in order to trigger a debar ? |
514 |
next PERIOD; |
515 |
} |
481 |
|
516 |
|
482 |
if ( $overdue_rules->{"debarred$i"} ) { |
517 |
if ( $overdue_rules->{"debarred$i"} ) { |
483 |
|
518 |
|
Lines 507-513
END_SQL
Link Here
|
507 |
} |
542 |
} |
508 |
$sth2->finish; |
543 |
$sth2->finish; |
509 |
|
544 |
|
510 |
my $letter = parse_letter( |
545 |
$letter = parse_letter( |
511 |
{ letter_code => $overdue_rules->{"letter$i"}, |
546 |
{ letter_code => $overdue_rules->{"letter$i"}, |
512 |
letter => $letter_template, |
547 |
letter => $letter_template, |
513 |
borrowernumber => $borrowernumber, |
548 |
borrowernumber => $borrowernumber, |
Lines 558-569
END_SQL
Link Here
|
558 |
} |
593 |
} |
559 |
); |
594 |
); |
560 |
} else { |
595 |
} else { |
561 |
if ($email) { |
596 |
if (scalar(@emails_to_use) > 0 ) { |
562 |
C4::Letters::EnqueueLetter( |
597 |
C4::Letters::EnqueueLetter( |
563 |
{ letter => $letter, |
598 |
{ letter => $letter, |
564 |
borrowernumber => $borrowernumber, |
599 |
borrowernumber => $borrowernumber, |
565 |
message_transport_type => 'email', |
600 |
message_transport_type => 'email', |
566 |
from_address => $admin_email_address, |
601 |
from_address => $admin_email_address, |
|
|
602 |
to_address => join(',', @emails_to_use), |
567 |
} |
603 |
} |
568 |
); |
604 |
); |
569 |
} else { |
605 |
} else { |
570 |
- |
|
|