Bug 6614: Remove newlines from order notes when exporting to CSV

Newline is not a valid character to Text::CSV's combine() subroutine.  If an order
contained a note with a newline in it, that line would come out as a blank entry in
the exported CSV.  This patch strips such characters, globally.

Signed-off-by: Nicole C. Engard <nengard@bywatersolutions.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Ian Walls 2011-07-26 14:22:53 -04:00 committed by Chris Cormack
parent 0dae6dca92
commit 68f99cdf98

View file

@ -241,6 +241,8 @@ sub GetBasketAsCSV {
my @rows;
foreach my $order (@orders) {
my @cols;
# newlines are not valid characters for Text::CSV combine()
$order->{'notes'} =~ s/[\r\n]+//g;
push(@cols,
$contract->{'contractname'},
$order->{'ordernumber'},