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

(-)a/misc/cronjobs/overdue_notices.pl (-3 / +2 lines)
Lines 435-442 END_SQL Link Here
435
    # my $outfile = 'overdues_' . ( $mybranch || $branchcode || 'default' );
435
    # my $outfile = 'overdues_' . ( $mybranch || $branchcode || 'default' );
436
    while ( my $overdue_rules = $rqoverduerules->fetchrow_hashref ) {
436
    while ( my $overdue_rules = $rqoverduerules->fetchrow_hashref ) {
437
      PERIOD: foreach my $i ( 1 .. 3 ) {
437
      PERIOD: foreach my $i ( 1 .. 3 ) {
438
            my $print_sent = 0; # We never sent a print notice
439
440
            $verbose and warn "branch '$branchcode', pass $i\n";
438
            $verbose and warn "branch '$branchcode', pass $i\n";
441
            my $mindays = $overdue_rules->{"delay$i"};    # the notice will be sent after mindays days (grace period)
439
            my $mindays = $overdue_rules->{"delay$i"};    # the notice will be sent after mindays days (grace period)
442
            my $maxdays = (
440
            my $maxdays = (
Lines 557-562 END_SQL Link Here
557
                @message_transport_types = @{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i) }
555
                @message_transport_types = @{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i) }
558
                    unless @message_transport_types;
556
                    unless @message_transport_types;
559
557
558
559
                my $print_sent = 0; # A print notice is not yet sent for this patron
560
                for my $mtt ( @message_transport_types ) {
560
                for my $mtt ( @message_transport_types ) {
561
561
562
                    my $letter = parse_letter(
562
                    my $letter = parse_letter(
563
- 

Return to bug 10832