|
Lines 830-835
elsif ($phase eq 'Export'){
Link Here
|
| 830 |
} else { |
830 |
} else { |
| 831 |
my $delimiter = C4::Context->preference('delimiter') || ','; |
831 |
my $delimiter = C4::Context->preference('delimiter') || ','; |
| 832 |
if ( $format eq 'csv' ) { |
832 |
if ( $format eq 'csv' ) { |
|
|
833 |
$delimiter = "\t" if $delimiter eq 'tabulation'; |
| 833 |
$type = 'application/csv'; |
834 |
$type = 'application/csv'; |
| 834 |
my $csv = Text::CSV::Encoded->new({ encoding_out => 'UTF-8', sep_char => $delimiter}); |
835 |
my $csv = Text::CSV::Encoded->new({ encoding_out => 'UTF-8', sep_char => $delimiter}); |
| 835 |
$csv or die "Text::CSV::Encoded->new({binary => 1}) FAILED: " . Text::CSV::Encoded->error_diag(); |
836 |
$csv or die "Text::CSV::Encoded->new({binary => 1}) FAILED: " . Text::CSV::Encoded->error_diag(); |
| 836 |
- |
|
|