- Fixed bug #1053, where ' characters were not escaped by export-csv.pl (thanks
  to John Florian).
This commit is contained in:
Paul Beckingham 2012-12-22 18:38:46 -05:00
parent 9b63fd6068
commit eeb4cf3dd8
2 changed files with 6 additions and 1 deletions

View file

@ -48,6 +48,8 @@ Bugs
provides an incorrect summary.
+ Fixed bug #1048, which segfaulted rather than complain about syntax (thanks
to Bryce Harrington, Štěpán Henek).
+ Fixed bug #1053, where ' characters were not escaped by export-csv.pl (thanks
to John Florian).
+ Fixed bug #1056, where CmdSummary did not print abstract parents.
+ Fixed bug #1059, where CmdEdit was running garbage collection.
+ Fixed bug #1060, where an error was not thrown correctly.

View file

@ -53,6 +53,9 @@ for my $task (split /,$/ms, qx{$command})
{
my $data = from_json ($task);
my $desc = $data->{'description'};
$desc =~ s/'/\\'/g;
print "'$data->{'uuid'}',",
"'$data->{'status'}',",
"'", (exists $data->{'tags'} ? join (' ', @{$data->{'tags'}}) : ''), "',",
@ -65,7 +68,7 @@ for my $task (split /,$/ms, qx{$command})
"'", ($data->{'priority'} || ''), "',",
"'", ($data->{'fg'} || ''), "',",
"'", ($data->{'bg'} || ''), "',",
"'$data->{'description'}'",
"'$desc'",
"\n";
# Note that this format ignores: