Bug 17590 - Exporting reports as CSV with 'delimiter' SysPref set to 'tabulation' creates files with 't' as separator
To test: Set 'delimiter' system preference to 'tabs' Export a report as csv Open the file in text editor and note fields separated by character 't' Apply patch Export report as CSV Open file in text editor and note tabs are used to separate fields Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com> tabs now, no errors. Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
This commit is contained in:
parent
847da48cfb
commit
b4d94a5ea4
1 changed files with 1 additions and 0 deletions
|
@ -830,6 +830,7 @@ elsif ($phase eq 'Export'){
|
|||
} else {
|
||||
my $delimiter = C4::Context->preference('delimiter') || ',';
|
||||
if ( $format eq 'csv' ) {
|
||||
$delimiter = "\t" if $delimiter eq 'tabulation';
|
||||
$type = 'application/csv';
|
||||
my $csv = Text::CSV::Encoded->new({ encoding_out => 'UTF-8', sep_char => $delimiter});
|
||||
$csv or die "Text::CSV::Encoded->new({binary => 1}) FAILED: " . Text::CSV::Encoded->error_diag();
|
||||
|
|
Loading…
Reference in a new issue