Revision 684ded10
Von Sven Schöling vor mehr als 5 Jahren hinzugefügt
| modules/override/PDF/Table.pm | ||
|---|---|---|
| 134 | 134 |
# Check if any text to display |
| 135 | 135 |
unless( defined( $text) and length($text) > 0 ) |
| 136 | 136 |
{
|
| 137 |
carp "Warning: No input text found. Trying to add dummy '-' and not to break everything.\n"; |
|
| 138 |
$text = '-';
|
|
| 137 |
# carp "Warning: No input text found. Trying to add dummy '-' and not to break everything.\n";
|
|
| 138 |
$text = ' ';
|
|
| 139 | 139 |
} |
| 140 | 140 |
|
| 141 | 141 |
# Strip any <CR> and Split the text into paragraphs |
| ... | ... | |
| 669 | 669 |
|
| 670 | 670 |
# Row cell props - TODO in another commit |
| 671 | 671 |
|
| 672 |
# Added to resolve infite loop bug with returned undef values |
|
| 673 |
for(my $d = 0; $d < scalar(@{$record}) ; $d++)
|
|
| 674 |
{
|
|
| 675 |
$record->[$d] = ' ' unless( defined $record->[$d]); |
|
| 676 |
} |
|
| 672 | 677 |
|
| 673 | 678 |
# Choose colors for this row |
| 674 | 679 |
$background_color = ($row_index - $header_props->{num_header_rows}) % 2 ? $background_color_even : $background_color_odd;
|
Auch abrufbar als: Unified diff
PDF::Table: Warnungen und "-" Artefakte bei undef entfernt