Revision 86330615
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/ReportGenerator.pm | ||
|---|---|---|
| 1 | 1 |
package SL::ReportGenerator; |
| 2 | 2 |
|
| 3 |
#use strict; |
|
| 4 |
|
|
| 3 |
use Data::Dumper; |
|
| 5 | 4 |
use Encode; |
| 6 | 5 |
use IO::Wrap; |
| 7 | 6 |
use List::Util qw(max); |
| ... | ... | |
| 338 | 337 |
next; |
| 339 | 338 |
} |
| 340 | 339 |
|
| 341 |
my $col = $row->{$col_name};
|
|
| 340 |
my $col = $row->{$col_name} || { data => [] };
|
|
| 342 | 341 |
$col->{CELL_ROWS} = [ ];
|
| 343 | 342 |
foreach my $i (0 .. scalar(@{ $col->{data} }) - 1) {
|
| 344 | 343 |
push @{ $col->{CELL_ROWS} }, {
|
Auch abrufbar als: Unified diff
Reportgeerator: Reportzelle richtig initialisieren.