Strict fix im Reportgenerator

diff --git a/SL/ReportGenerator.pm b/SL/ReportGenerator.pm
index b90b65529f36f84f9946245a19fd8de9746cfbb5..e23bf77865ccbb189ca537770ad36a3d3c8440cd 100644 (file)
--- a/SL/ReportGenerator.pm
+++ b/SL/ReportGenerator.pm
@@ -512,7 +512,7 @@ sub generate_pdf_content {
       my $col_idx = 0;
       foreach my $col_name (@visible_columns) {
         my $col = $row->{$col_name};
       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');
 
 
         $column_props[$col_idx]->{justify} = 'right' if ($col->{align} eq 'right');