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

(-)a/misc/cronjobs/overdue_notices.pl (-3 / +2 lines)
Lines 454-461 END_SQL Link Here
454
    # my $outfile = 'overdues_' . ( $mybranch || $branchcode || 'default' );
454
    # my $outfile = 'overdues_' . ( $mybranch || $branchcode || 'default' );
455
    while ( my $overdue_rules = $rqoverduerules->fetchrow_hashref ) {
455
    while ( my $overdue_rules = $rqoverduerules->fetchrow_hashref ) {
456
      PERIOD: foreach my $i ( 1 .. 3 ) {
456
      PERIOD: foreach my $i ( 1 .. 3 ) {
457
            my $print_sent = 0; # We never sent a print notice
458
459
            $verbose and warn "branch '$branchcode', pass $i\n";
457
            $verbose and warn "branch '$branchcode', pass $i\n";
460
            my $mindays = $overdue_rules->{"delay$i"};    # the notice will be sent after mindays days (grace period)
458
            my $mindays = $overdue_rules->{"delay$i"};    # the notice will be sent after mindays days (grace period)
461
            my $maxdays = (
459
            my $maxdays = (
Lines 576-581 END_SQL Link Here
576
                @message_transport_types = @{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i) }
574
                @message_transport_types = @{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i) }
577
                    unless @message_transport_types;
575
                    unless @message_transport_types;
578
576
577
578
                my $print_sent = 0; # A print notice is not yet sent for this patron
579
                for my $mtt ( @message_transport_types ) {
579
                for my $mtt ( @message_transport_types ) {
580
580
581
                    my $letter = parse_letter(
581
                    my $letter = parse_letter(
582
- 

Return to bug 10832