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

(-)a/misc/cronjobs/overdue_notices.pl (-4 / +10 lines)
Lines 483-489 END_SQL Link Here
483
                $verbose and warn "STH2 PARAMS: borrowernumber = $borrowernumber, mindays = $mindays, maxdays = $maxdays";
483
                $verbose and warn "STH2 PARAMS: borrowernumber = $borrowernumber, mindays = $mindays, maxdays = $maxdays";
484
                $sth2->execute(@params);
484
                $sth2->execute(@params);
485
                my $itemcount = 0;
485
                my $itemcount = 0;
486
                my $titles = "";
486
                my $titles;
487
                if ($htmlfilename) {
488
                    $titles = "<table id='itemscontent$borrowernumber'>";
489
                    $titles .= "<thead><tr><th>" . join( "</th><th>", @$columns_def_hashref{@item_content_fields} );
490
                    $titles .= "</th></tr></thead><tbody>";
491
                }
487
                my @items = ();
492
                my @items = ();
488
                
493
                
489
                my $j = 0;
494
                my $j = 0;
Lines 521-528 END_SQL Link Here
521
                    next PERIOD;
526
                    next PERIOD;
522
                }
527
                }
523
                
528
                
524
                if ( $exceededPrintNoticesMaxLines ) {
529
                $letter->{'content-type'}="text/".($htmlfilename?"html":"plain");
525
                  $letter->{'content'} .= "List too long for form; please check your account online for a complete list of your overdue items.";
530
531
                if ($exceededPrintNoticesMaxLines) {
532
                    $letter->{'content'} .= "List too long for form; please check your account online for a complete list of your overdue items.";
526
                }
533
                }
527
534
528
                my @misses = grep { /./ } map { /^([^>]*)[>]+/; ( $1 || '' ); } split /\</, $letter->{'content'};
535
                my @misses = grep { /./ } map { /^([^>]*)[>]+/; ( $1 || '' ); } split /\</, $letter->{'content'};
529
- 

Return to bug 6030