|
Lines 489-495
END_SQL
Link Here
|
| 489 |
$verbose and warn "STH2 PARAMS: borrowernumber = $borrowernumber, mindays = $mindays, maxdays = $maxdays"; |
489 |
$verbose and warn "STH2 PARAMS: borrowernumber = $borrowernumber, mindays = $mindays, maxdays = $maxdays"; |
| 490 |
$sth2->execute(@params); |
490 |
$sth2->execute(@params); |
| 491 |
my $itemcount = 0; |
491 |
my $itemcount = 0; |
| 492 |
my $titles = ""; |
492 |
my $titles; |
|
|
493 |
if ($htmlfilename) { |
| 494 |
$titles = "<table id='itemscontent$borrowernumber'>"; |
| 495 |
$titles .= "<thead><tr><th>" . join( "</th><th>", @$columns_def_hashref{@item_content_fields} ); |
| 496 |
$titles .= "</th></tr></thead><tbody>"; |
| 497 |
} |
| 493 |
my @items = (); |
498 |
my @items = (); |
| 494 |
|
499 |
|
| 495 |
my $j = 0; |
500 |
my $j = 0; |
|
Lines 528-535
END_SQL
Link Here
|
| 528 |
next PERIOD; |
533 |
next PERIOD; |
| 529 |
} |
534 |
} |
| 530 |
|
535 |
|
| 531 |
if ( $exceededPrintNoticesMaxLines ) { |
536 |
$letter->{'content-type'}="text/".($htmlfilename?"html":"plain"); |
| 532 |
$letter->{'content'} .= "List too long for form; please check your account online for a complete list of your overdue items."; |
537 |
|
|
|
538 |
if ($exceededPrintNoticesMaxLines) { |
| 539 |
$letter->{'content'} .= "List too long for form; please check your account online for a complete list of your overdue items."; |
| 533 |
} |
540 |
} |
| 534 |
|
541 |
|
| 535 |
my @misses = grep { /./ } map { /^([^>]*)[>]+/; ( $1 || '' ); } split /\</, $letter->{'content'}; |
542 |
my @misses = grep { /./ } map { /^([^>]*)[>]+/; ( $1 || '' ); } split /\</, $letter->{'content'}; |
| 536 |
- |
|
|