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

(-)a/misc/cronjobs/advance_notices.pl (-5 / +6 lines)
Lines 162-167 The F<misc/cronjobs/overdue_notices.pl> program allows you to send Link Here
162
messages to patrons when their messages are overdue.
162
messages to patrons when their messages are overdue.
163
=cut
163
=cut
164
164
165
binmode( STDOUT, ':encoding(UTF-8)' );
166
165
# These are defaults for command line options.
167
# These are defaults for command line options.
166
my $confirm;                                                        # -c: Confirm that the user has read and configured this script.
168
my $confirm;                                                        # -c: Confirm that the user has read and configured this script.
167
my $nomail;                                                         # -n: No mail. Will not send any emails.
169
my $nomail;                                                         # -n: No mail. Will not send any emails.
Lines 266-272 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
266
                                      substitute     => { 'items.content' => $titles },
268
                                      substitute     => { 'items.content' => $titles },
267
                                      message_transport_type => $transport,
269
                                      message_transport_type => $transport,
268
                                    } )
270
                                    } )
269
                    or warn "no letter of type '$letter_type' found. Please see sample_notices.sql";
271
                    or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql";
270
                push @letters, $letter if $letter;
272
                push @letters, $letter if $letter;
271
            }
273
            }
272
        }
274
        }
Lines 300-306 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
300
                                      substitute     => { 'items.content' => $titles },
302
                                      substitute     => { 'items.content' => $titles },
301
                                      message_transport_type => $transport,
303
                                      message_transport_type => $transport,
302
                                    } )
304
                                    } )
303
                    or warn "no letter of type '$letter_type' found. Please see sample_notices.sql";
305
                    or warn "no letter of type '$letter_type' found for borrowernumber ".$upcoming->{'borrowernumber'}.". Please see sample_notices.sql";
304
                push @letters, $letter if $letter;
306
                push @letters, $letter if $letter;
305
            }
307
            }
306
        }
308
        }
Lines 373-379 PATRON: while ( my ( $borrowernumber, $digest ) = each %$upcoming_digest ) { Link Here
373
                message_transport_type => $transport,
375
                message_transport_type => $transport,
374
            }
376
            }
375
          )
377
          )
376
          or warn "no letter of type '$letter_type' found. Please see sample_notices.sql";
378
          or warn "no letter of type '$letter_type' found for borrowernumber $borrowernumber. Please see sample_notices.sql";
377
        push @letters, $letter if $letter;
379
        push @letters, $letter if $letter;
378
    }
380
    }
379
381
Lines 430-436 PATRON: while ( my ( $borrowernumber, $digest ) = each %$due_digest ) { Link Here
430
                message_transport_type => $transport,
432
                message_transport_type => $transport,
431
            }
433
            }
432
          )
434
          )
433
          or warn "no letter of type '$letter_type' found. Please see sample_notices.sql";
435
          or warn "no letter of type '$letter_type' found for borrowernumber $borrowernumber. Please see sample_notices.sql";
434
        push @letters, $letter if $letter;
436
        push @letters, $letter if $letter;
435
    }
437
    }
436
438
437
- 

Return to bug 12923