View | Details | Raw Unified | Return to bug 17590
Collapse All | Expand All

(-)a/reports/guided_reports.pl (-1 / +1 lines)
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
- 

Return to bug 17590