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

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

Return to bug 6030