|
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 |
- |
|
|