|
Lines 639-646
elsif ($op eq 'export'){
Link Here
|
| 639 |
$content .= join("\t", header_cell_values($sth)) . "\n"; |
639 |
$content .= join("\t", header_cell_values($sth)) . "\n"; |
| 640 |
$content = $scrubber->scrub( Encode::decode( 'UTF-8', $content ) ); |
640 |
$content = $scrubber->scrub( Encode::decode( 'UTF-8', $content ) ); |
| 641 |
while ( my $row = $sth->fetchrow_arrayref() ) { |
641 |
while ( my $row = $sth->fetchrow_arrayref() ) { |
| 642 |
$content .= join( "\t", map { $_ // '' } @$row ) . "\n"; |
642 |
$content .= $scrubber->scrub( join( "\t", map { $_ // '' } @$row ) ) . "\n"; |
| 643 |
$content = $scrubber->scrub( $content ); |
|
|
| 644 |
} |
643 |
} |
| 645 |
} else { |
644 |
} else { |
| 646 |
if ( $format eq 'csv' ) { |
645 |
if ( $format eq 'csv' ) { |
| 647 |
- |
|
|