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

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

Return to bug 12923