|
Lines 902-908
elsif ($phase eq 'Export'){
Link Here
|
| 902 |
$content .= join("\t", header_cell_values($sth)) . "\n"; |
902 |
$content .= join("\t", header_cell_values($sth)) . "\n"; |
| 903 |
$content = Encode::decode('UTF-8', $content); |
903 |
$content = Encode::decode('UTF-8', $content); |
| 904 |
while (my $row = $sth->fetchrow_arrayref()) { |
904 |
while (my $row = $sth->fetchrow_arrayref()) { |
| 905 |
$content .= join("\t", @$row) . "\n"; |
905 |
$content .= join("\t", map { $_ // '' } @$row) . "\n"; |
| 906 |
} |
906 |
} |
| 907 |
} else { |
907 |
} else { |
| 908 |
my $delimiter = C4::Context->preference('delimiter') || ','; |
908 |
my $delimiter = C4::Context->preference('delimiter') || ','; |
| 909 |
- |
|
|