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

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

Return to bug 6030