|
Lines 646-651
elsif ($op eq 'export'){
Link Here
|
| 646 |
if ( $format eq 'csv' ) { |
646 |
if ( $format eq 'csv' ) { |
| 647 |
my $delimiter = C4::Context->csv_delimiter; |
647 |
my $delimiter = C4::Context->csv_delimiter; |
| 648 |
$type = 'application/csv'; |
648 |
$type = 'application/csv'; |
|
|
649 |
|
| 650 |
# Add BOM for UTF-8 encoded CSV |
| 651 |
$content .= "\xEF\xBB\xBF"; |
| 652 |
|
| 649 |
my $csv = Text::CSV::Encoded->new({ encoding_out => 'UTF-8', sep_char => $delimiter}); |
653 |
my $csv = Text::CSV::Encoded->new({ encoding_out => 'UTF-8', sep_char => $delimiter}); |
| 650 |
$csv or die "Text::CSV::Encoded->new({binary => 1}) FAILED: " . Text::CSV::Encoded->error_diag(); |
654 |
$csv or die "Text::CSV::Encoded->new({binary => 1}) FAILED: " . Text::CSV::Encoded->error_diag(); |
| 651 |
if ( $csv->combine( header_cell_values($sth) ) ) { |
655 |
if ( $csv->combine( header_cell_values($sth) ) ) { |
| 652 |
- |
|
|