From b002dbaf4798de4c1e0891ab2644fe038d31f754 Mon Sep 17 00:00:00 2001 From: Graham Knop Date: Sun, 5 Oct 2008 19:43:03 +0000 Subject: [PATCH] fixed: DataForm can't export fields containing newlines --- docs/changelog/7.x.x.txt | 1 + lib/WebGUI/Asset/Wobject/DataForm.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index 68d59f657..a5b533922 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -10,6 +10,7 @@ - added a new permission denied page for version tag approval - fixed: Shortcuts includes HTML head data twice - fixed: DataForm entry table isn't properly indexed + - fixed: DataForm can't export fields containing newlines 7.6.0 - added: users may now customize the post received page for the CS diff --git a/lib/WebGUI/Asset/Wobject/DataForm.pm b/lib/WebGUI/Asset/Wobject/DataForm.pm index 945f6bc70..62757b12d 100644 --- a/lib/WebGUI/Asset/Wobject/DataForm.pm +++ b/lib/WebGUI/Asset/Wobject/DataForm.pm @@ -1233,7 +1233,7 @@ sub www_exportTab { if $field->{isMailField} && !$self->get('mailData'); push @exportFields, $field->{name}; } - my $tsv = Text::CSV_XS->new({sep_char => "\t", eol => "\n"}); + my $tsv = Text::CSV_XS->new({sep_char => "\t", eol => "\n", binary => 1}); $tsv->combine( 'entryId', 'ipAddress',