|
Lines 285-290
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
| 285 |
|
285 |
|
| 286 |
## Get branch info for borrowers home library. |
286 |
## Get branch info for borrowers home library. |
| 287 |
foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) { |
287 |
foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) { |
|
|
288 |
next if $transport eq 'phone'; |
| 288 |
my $letter = parse_letter( { letter_code => $letter_type, |
289 |
my $letter = parse_letter( { letter_code => $letter_type, |
| 289 |
borrowernumber => $upcoming->{'borrowernumber'}, |
290 |
borrowernumber => $upcoming->{'borrowernumber'}, |
| 290 |
branchcode => $upcoming->{'branchcode'}, |
291 |
branchcode => $upcoming->{'branchcode'}, |
|
Lines 323-328
UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) {
Link Here
|
| 323 |
|
324 |
|
| 324 |
## Get branch info for borrowers home library. |
325 |
## Get branch info for borrowers home library. |
| 325 |
foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) { |
326 |
foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) { |
|
|
327 |
next if $transport eq 'phone'; |
| 326 |
my $letter = parse_letter( { letter_code => $letter_type, |
328 |
my $letter = parse_letter( { letter_code => $letter_type, |
| 327 |
borrowernumber => $upcoming->{'borrowernumber'}, |
329 |
borrowernumber => $upcoming->{'borrowernumber'}, |
| 328 |
branchcode => $upcoming->{'branchcode'}, |
330 |
branchcode => $upcoming->{'branchcode'}, |
|
Lines 566-571
sub send_digests {
Link Here
|
| 566 |
} |
568 |
} |
| 567 |
|
569 |
|
| 568 |
foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) { |
570 |
foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) { |
|
|
571 |
next if $transport eq 'phone'; |
| 569 |
my $letter = parse_letter( |
572 |
my $letter = parse_letter( |
| 570 |
{ |
573 |
{ |
| 571 |
letter_code => $params->{letter_code}, |
574 |
letter_code => $params->{letter_code}, |