Commit ce1fb493 authored by Chia-liang Kao's avatar Chia-liang Kao
Browse files

remove newlines and tabs.

parent 209c9a8b
......@@ -114,8 +114,15 @@ else {
my $ii = 0;
while (my $row = $Tickets->Next) {
for (@columns) {
$m->out(join("\t", map { ProcessColumnMapValue($_->{map}, Arguments => [$row, $ii++]) } @$_)."\n");
for my $col (@columns) {
my @x = @$col;
$m->out(join("\t", map {
my $val = ProcessColumnMapValue($_->{map}, Arguments => [$row, $ii++], Escape => 0);
# remove tabs from all field values, they screw up the tsv
$val = '' unless defined $val;
$val =~ s/(?:\n|\r)//g; $val =~ s{\t}{ }g;
$val;
} @$col)."\n");
}
}
$m->abort();
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment