Commit 3ae2c680 authored by Thomas Sibley's avatar Thomas Sibley
Browse files

Avoid outputting a common comment character in the TSV column titles

If # is the first column (as usual), then the header will be output as a
"comment" and the columns will be off by one.  Catch and fix the most
common failure mode.
parent 95cc6a3d
......@@ -66,6 +66,9 @@ my $should_loc = { map { $_ => 1 } qw(Status) };
my $col_entry = sub {
my $col = shift;
# in tsv output, "#" is often a comment character but we use it for "id"
delete $col->{title}
if $col->{title} and $col->{title} =~ /^\s*#\s*$/;
return {
header => Encode::encode_utf8(loc($col->{title} || $col->{attribute})),
map => $m->comp(
......
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