|
Lines 633-639
elsif ($op eq 'export'){
Link Here
|
| 633 |
$content .= join("\t", header_cell_values($sth)) . "\n"; |
633 |
$content .= join("\t", header_cell_values($sth)) . "\n"; |
| 634 |
$content = $scrubber->scrub( Encode::decode( 'UTF-8', $content ) ); |
634 |
$content = $scrubber->scrub( Encode::decode( 'UTF-8', $content ) ); |
| 635 |
while ( my $row = $sth->fetchrow_arrayref() ) { |
635 |
while ( my $row = $sth->fetchrow_arrayref() ) { |
| 636 |
$content .= join( "\t", $scrubber->scrub(@$row) ) . "\n"; |
636 |
$content .= join( "\t", map { $_ // '' } @$row ) . "\n"; |
|
|
637 |
$content = $scrubber->scrub( $content ); |
| 637 |
} |
638 |
} |
| 638 |
} else { |
639 |
} else { |
| 639 |
if ( $format eq 'csv' ) { |
640 |
if ( $format eq 'csv' ) { |
| 640 |
- |
|
|