Lines 211-217
if ($do_it) {
Link Here
|
211 |
|
211 |
|
212 |
# First line with heading |
212 |
# First line with heading |
213 |
# Exporting bd id seems useless |
213 |
# Exporting bd id seems useless |
214 |
my @headings = grep { $_ ne 'action_id' } sort keys $data[0]; |
214 |
my @headings = grep { $_ ne 'action_id' } sort keys %{$data[0]}; |
215 |
if ( $csv->combine(@headings) ) { |
215 |
if ( $csv->combine(@headings) ) { |
216 |
$content .= $csv->string() . "\n"; |
216 |
$content .= $csv->string() . "\n"; |
217 |
} |
217 |
} |
218 |
- |
|
|