From ca906c9eb4a76663e0e95518634f1a38ea623539 Mon Sep 17 00:00:00 2001 From: Andrew Fuerste Henry Date: Wed, 20 Nov 2024 19:40:26 +0000 Subject: [PATCH] Bug 38497: Denote delimiter in report csv To test: 1- set delimiter to something other than comma 2- run and download report as CSV, try to open in Excel, it doesn't recognize your delimiter 3- apply patch 4- repeat 2, now it does recognize your delimiter --- reports/guided_reports.pl | 3 +++ 1 file changed, 3 insertions(+) diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl index 27f82e9b7a..9f1dbbd87c 100755 --- a/reports/guided_reports.pl +++ b/reports/guided_reports.pl @@ -649,6 +649,9 @@ elsif ($op eq 'export'){ # Add BOM for UTF-8 encoded CSV $content .= "\xEF\xBB\xBF"; + # Definte delimiter in CSV + $content .= "sep=" . $delimiter . "\n"; + my $csv = Text::CSV::Encoded->new({ encoding_out => 'UTF-8', sep_char => $delimiter, formula => 'empty' }); $csv or die "Text::CSV::Encoded->new({binary => 1}) FAILED: " . Text::CSV::Encoded->error_diag(); if ( $csv->combine( header_cell_values($sth) ) ) { -- 2.39.5