Strict fix im Reportgenerator
authorSven Schöling <s.schoeling@linet-services.de>
Tue, 27 Apr 2010 16:28:20 +0000 (18:28 +0200)
committerSven Schöling <s.schoeling@linet-services.de>
Tue, 27 Apr 2010 16:29:09 +0000 (18:29 +0200)
SL/ReportGenerator.pm

index b90b655..e23bf77 100644 (file)
@@ -512,7 +512,7 @@ sub generate_pdf_content {
       my $col_idx = 0;
       foreach my $col_name (@visible_columns) {
         my $col = $row->{$col_name};
-        push @{ $data_row }, $self->_decode_text(join("\n", @{ $col->{data} }));
+        push @{ $data_row }, $self->_decode_text(join("\n", @{ $col->{data} || [] }));
 
         $column_props[$col_idx]->{justify} = 'right' if ($col->{align} eq 'right');