- 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. provides an incorrect summary.
+ Fixed bug #1048, which segfaulted rather than complain about syntax (thanks + Fixed bug #1048, which segfaulted rather than complain about syntax (thanks
to Bryce Harrington, Štěpán Henek). 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 #1056, where CmdSummary did not print abstract parents.
+ Fixed bug #1059, where CmdEdit was running garbage collection. + Fixed bug #1059, where CmdEdit was running garbage collection.
+ Fixed bug #1060, where an error was not thrown correctly. + 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 $data = from_json ($task);
my $desc = $data->{'description'};
$desc =~ s/'/\\'/g;
print "'$data->{'uuid'}',", print "'$data->{'uuid'}',",
"'$data->{'status'}',", "'$data->{'status'}',",
"'", (exists $data->{'tags'} ? join (' ', @{$data->{'tags'}}) : ''), "',", "'", (exists $data->{'tags'} ? join (' ', @{$data->{'tags'}}) : ''), "',",
@ -65,7 +68,7 @@ for my $task (split /,$/ms, qx{$command})
"'", ($data->{'priority'} || ''), "',", "'", ($data->{'priority'} || ''), "',",
"'", ($data->{'fg'} || ''), "',", "'", ($data->{'fg'} || ''), "',",
"'", ($data->{'bg'} || ''), "',", "'", ($data->{'bg'} || ''), "',",
"'$data->{'description'}'", "'$desc'",
"\n"; "\n";
# Note that this format ignores: # Note that this format ignores: