Commit 83143dd1 authored by Alex Vandiver's avatar Alex Vandiver
Browse files

Prevent run-ons in fields with newlines

Replace newlines with spaces, to prevent content wrapped across lines
from running together when exported as TSV.
parent a8232c75
......@@ -113,7 +113,7 @@ while (my $row = $Collection->Next) {
$val = loc($val) if $_->{should_loc};
# 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 =~ s/(?:\n|\r)+/ /g; $val =~ s{\t}{ }g;
$val = $no_html->scrub($val);
$val = HTML::Entities::decode_entities($val);
Encode::encode_utf8($val);
......
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