View | Details | Raw Unified | Return to bug 20457
Collapse All | Expand All

(-)a/misc/cronjobs/advance_notices.pl (+3 lines)
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},
(-)a/misc/cronjobs/overdue_notices.pl (-1 / +1 lines)
Lines 678-683 END_SQL Link Here
678
678
679
                my $print_sent = 0; # A print notice is not yet sent for this patron
679
                my $print_sent = 0; # A print notice is not yet sent for this patron
680
                for my $mtt ( @message_transport_types ) {
680
                for my $mtt ( @message_transport_types ) {
681
                    next if $mtt eq 'phone';
681
                    my $effective_mtt = $mtt;
682
                    my $effective_mtt = $mtt;
682
                    if ( ($mtt eq 'email' and not scalar @emails_to_use) or ($mtt eq 'sms' and not $data->{smsalertnumber}) ) {
683
                    if ( ($mtt eq 'email' and not scalar @emails_to_use) or ($mtt eq 'sms' and not $data->{smsalertnumber}) ) {
683
                        # email or sms is requested but not exist, do a print.
684
                        # email or sms is requested but not exist, do a print.
684
- 

Return to bug 20457