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

(-)a/misc/cronjobs/advance_notices.pl (+4 lines)
Lines 262-267 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
262
262
263
            ## Get branch info for borrowers home library.
263
            ## Get branch info for borrowers home library.
264
            foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
264
            foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
265
                next if $transport eq 'phone';
265
                my $letter = parse_letter( { letter_code    => $letter_type,
266
                my $letter = parse_letter( { letter_code    => $letter_type,
266
                                      borrowernumber => $upcoming->{'borrowernumber'},
267
                                      borrowernumber => $upcoming->{'borrowernumber'},
267
                                      branchcode     => $upcoming->{'branchcode'},
268
                                      branchcode     => $upcoming->{'branchcode'},
Lines 296-301 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
296
297
297
            ## Get branch info for borrowers home library.
298
            ## Get branch info for borrowers home library.
298
            foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
299
            foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
300
                next if $transport eq 'phone';
299
                my $letter = parse_letter( { letter_code    => $letter_type,
301
                my $letter = parse_letter( { letter_code    => $letter_type,
300
                                      borrowernumber => $upcoming->{'borrowernumber'},
302
                                      borrowernumber => $upcoming->{'borrowernumber'},
301
                                      branchcode     => $upcoming->{'branchcode'},
303
                                      branchcode     => $upcoming->{'branchcode'},
Lines 364-369 PATRON: while ( my ( $borrowernumber, $digest ) = each %$upcoming_digest ) { Link Here
364
    my %branch_info = get_branch_info( $borrowernumber );
366
    my %branch_info = get_branch_info( $borrowernumber );
365
367
366
    foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {
368
    foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {
369
        next if $transport eq 'phone';
367
        my $letter = parse_letter(
370
        my $letter = parse_letter(
368
            {
371
            {
369
                letter_code    => $letter_type,
372
                letter_code    => $letter_type,
Lines 421-426 PATRON: while ( my ( $borrowernumber, $digest ) = each %$due_digest ) { Link Here
421
    my %branch_info = get_branch_info( $borrowernumber );
424
    my %branch_info = get_branch_info( $borrowernumber );
422
425
423
    for my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {
426
    for my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {
427
        next if $transport eq 'phone';
424
        my $letter = parse_letter(
428
        my $letter = parse_letter(
425
            {
429
            {
426
                letter_code    => $letter_type,
430
                letter_code    => $letter_type,
(-)a/misc/cronjobs/overdue_notices.pl (-1 / +2 lines)
Lines 680-685 END_SQL Link Here
680
680
681
                my $print_sent = 0; # A print notice is not yet sent for this patron
681
                my $print_sent = 0; # A print notice is not yet sent for this patron
682
                for my $mtt ( @message_transport_types ) {
682
                for my $mtt ( @message_transport_types ) {
683
                    next if $mtt eq 'phone';
684
683
                    my $effective_mtt = $mtt;
685
                    my $effective_mtt = $mtt;
684
                    if ( ($mtt eq 'email' and not scalar @emails_to_use) or ($mtt eq 'sms' and not $data->{smsalertnumber}) ) {
686
                    if ( ($mtt eq 'email' and not scalar @emails_to_use) or ($mtt eq 'sms' and not $data->{smsalertnumber}) ) {
685
                        # email or sms is requested but not exist, do a print.
687
                        # email or sms is requested but not exist, do a print.
686
- 

Return to bug 20457