Revision a864ef27
Von Sven Schöling vor fast 9 Jahren hinzugefügt
| modules/override/PDF/Table.pm | ||
|---|---|---|
| 129 | 129 |
# Check if any text to display |
| 130 | 130 |
unless( defined( $text) and length($text) > 0 ) |
| 131 | 131 |
{
|
| 132 |
carp "Warning: No input text found. Trying to add dummy '-' and not to break everything.\n"; |
|
| 133 |
$text = '-';
|
|
| 132 |
# carp "Warning: No input text found. Trying to add dummy '-' and not to break everything.\n";
|
|
| 133 |
$text = ' ';
|
|
| 134 | 134 |
} |
| 135 | 135 |
|
| 136 | 136 |
# Strip any <CR> and Split the text into paragraphs |
| ... | ... | |
| 648 | 648 |
# Added to resolve infite loop bug with returned undef values |
| 649 | 649 |
for(my $d = 0; $d < scalar(@{$record}) ; $d++)
|
| 650 | 650 |
{
|
| 651 |
$record->[$d] = '-' unless( defined $record->[$d]);
|
|
| 651 |
$record->[$d] = ' ' unless( defined $record->[$d]);
|
|
| 652 | 652 |
} |
| 653 | 653 |
|
| 654 | 654 |
# Choose colors for this row |
Auch abrufbar als: Unified diff
PDF::Table: Warnungen und "-" Artefakte bei undef entfernt