Beim CSV-Export Zeilenumbrüche in Zellendaten durch das ausgewählte Format ersetzen.

diff --git a/SL/ReportGenerator.pm b/SL/ReportGenerator.pm
index 59a878b..87c8397 100644 (file)
--- a/SL/ReportGenerator.pm
+++ b/SL/ReportGenerator.pm
@@ -458,6 +458,7 @@ sub generate_csv_content {
   foreach my $row_set (@{ $self->{data} }) {
     next if ('ARRAY' ne ref $row_set);
     foreach my $row (@{ $row_set }) {
+      map { $row->{$_}->{data} =~ s/\r?\n/$eol/g } @visible_columns;
       $csv->print($stdout, [ map { $row->{$_}->{data} } @visible_columns ]);
     }
   }