|
Lines 278-286
sub _export_table_csv
Link Here
|
| 278 |
$sth->execute($frameworkcode); |
278 |
$sth->execute($frameworkcode); |
| 279 |
my $data; |
279 |
my $data; |
| 280 |
while (my $hashRef = $sth->fetchrow_hashref) { |
280 |
while (my $hashRef = $sth->fetchrow_hashref) { |
| 281 |
for (@fields) { |
281 |
for my $field (@fields) { |
| 282 |
$hashRef->{$_} =~ s/[\r\n]//g; |
282 |
my $value = $hashRef->{$field} // q||; |
| 283 |
$$strCSV .= '"' . $hashRef->{$_} . '",'; |
283 |
$value =~ s/[\r\n]//g; |
|
|
284 |
$$strCSV .= '"' . $value . '",'; |
| 284 |
} |
285 |
} |
| 285 |
chop $$strCSV; |
286 |
chop $$strCSV; |
| 286 |
$$strCSV .= chr(10); |
287 |
$$strCSV .= chr(10); |
| 287 |
- |
|
|