|
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 |
- |
|
|