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

(-)a/misc/cronjobs/overdue_notices.pl (-4 / +10 lines)
Lines 470-476 END_SQL Link Here
470
                $verbose and warn "STH2 PARAMS: borrowernumber = $borrowernumber, mindays = $mindays, maxdays = $maxdays";
470
                $verbose and warn "STH2 PARAMS: borrowernumber = $borrowernumber, mindays = $mindays, maxdays = $maxdays";
471
                $sth2->execute(@params);
471
                $sth2->execute(@params);
472
                my $itemcount = 0;
472
                my $itemcount = 0;
473
                my $titles = "";
473
                my $titles;
474
                if ($htmlfilename) {
475
                    $titles = "<table id='itemscontent$borrowernumber'>";
476
                    $titles .= "<thead><tr><th>" . join( "</th><th>", @$columns_def_hashref{@item_content_fields} );
477
                    $titles .= "</th></tr></thead><tbody>";
478
                }
474
                my @items = ();
479
                my @items = ();
475
                
480
                
476
                my $i = 0;
481
                my $i = 0;
Lines 508-515 END_SQL Link Here
508
                    next PERIOD;
513
                    next PERIOD;
509
                }
514
                }
510
                
515
                
511
                if ( $exceededPrintNoticesMaxLines ) {
516
                $letter->{'content-type'}="text/".($htmlfilename?"html":"plain");
512
                  $letter->{'content'} .= "List too long for form; please check your account online for a complete list of your overdue items.";
517
518
                if ($exceededPrintNoticesMaxLines) {
519
                    $letter->{'content'} .= "List too long for form; please check your account online for a complete list of your overdue items.";
513
                }
520
                }
514
521
515
                my @misses = grep { /./ } map { /^([^>]*)[>]+/; ( $1 || '' ); } split /\</, $letter->{'content'};
522
                my @misses = grep { /./ } map { /^([^>]*)[>]+/; ( $1 || '' ); } split /\</, $letter->{'content'};
516
- 

Return to bug 6030