Merge branch 'master' of ssh://lx-office.linet-services.de/~/lx-office-erp
authorMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 28 Apr 2010 08:28:38 +0000 (10:28 +0200)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 28 Apr 2010 08:28:38 +0000 (10:28 +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');