@@ -, +, @@ - Create an SQL report with column names containing UTF characters - Run the report - Export the report - Apply the patch - Re-run the report (reload works) - Export the report - Sign off :-D --- reports/guided_reports.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) --- a/reports/guided_reports.pl +++ a/reports/guided_reports.pl @@ -771,7 +771,7 @@ elsif ($phase eq 'Run this report'){ unless ($sth) { die "execute_query failed to return sth for report $report_id: $sql"; } else { - my $headers= header_cell_loop($sth); + my $headers = header_cell_loop($sth); $template->param(header_row => $headers); while (my $row = $sth->fetchrow_arrayref()) { my @cells = map { +{ cell => $_ } } @$row; @@ -949,7 +949,7 @@ sub header_cell_values { # pass $sth, get back a TMPL_LOOP-able set of names for the column headers sub header_cell_loop { - my @headers = map { +{ cell => $_ } } header_cell_values (shift); + my @headers = map { +{ cell => decode('UTF-8',$_) } } header_cell_values (shift); return \@headers; } --