@@ -, +, @@ --- reports/guided_reports.pl | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) --- a/reports/guided_reports.pl +++ a/reports/guided_reports.pl @@ -827,7 +827,6 @@ elsif ($phase eq 'Export'){ for ( my $i = 1; $i < $nb_rows +1 ; $i++ ) { $row = $doc->getRow( $table, $i ); for ( my $j = 0 ; $j < $nb_cols ; $j++ ) { - # FIXME Bug 11944 my $value = Encode::encode( 'UTF8', $rows->[$i - 1][$j] ); $doc->cellValue( $row, $j, $value ); } @@ -900,14 +899,7 @@ elsif ($phase eq 'Save Compound'){ # pass $sth, get back an array of names for the column headers sub header_cell_values { my $sth = shift or return (); - my @cols; - foreach my $c (@{$sth->{NAME}}) { - # TODO in Bug 11944 - #FIXME apparently DBI still needs a utf8 fix for this? - $c = Encode::decode('UTF-8', $c); - push @cols, $c; - } - return @cols; + return @{$sth->{NAME}}; } # pass $sth, get back a TMPL_LOOP-able set of names for the column headers --