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

(-)a/reports/guided_reports.pl (-10 / +1 lines)
Lines 827-833 elsif ($phase eq 'Export'){ Link Here
827
                for ( my $i = 1; $i < $nb_rows +1 ; $i++ ) {
827
                for ( my $i = 1; $i < $nb_rows +1 ; $i++ ) {
828
                    $row = $doc->getRow( $table, $i );
828
                    $row = $doc->getRow( $table, $i );
829
                    for ( my $j = 0 ; $j < $nb_cols ; $j++ ) {
829
                    for ( my $j = 0 ; $j < $nb_cols ; $j++ ) {
830
                        # FIXME Bug 11944
831
                        my $value = Encode::encode( 'UTF8', $rows->[$i - 1][$j] );
830
                        my $value = Encode::encode( 'UTF8', $rows->[$i - 1][$j] );
832
                        $doc->cellValue( $row, $j, $value );
831
                        $doc->cellValue( $row, $j, $value );
833
                    }
832
                    }
Lines 900-913 elsif ($phase eq 'Save Compound'){ Link Here
900
# pass $sth, get back an array of names for the column headers
899
# pass $sth, get back an array of names for the column headers
901
sub header_cell_values {
900
sub header_cell_values {
902
    my $sth = shift or return ();
901
    my $sth = shift or return ();
903
    my @cols;
902
    return @{$sth->{NAME}};
904
    foreach my $c (@{$sth->{NAME}}) {
905
        # TODO in Bug 11944
906
        #FIXME apparently DBI still needs a utf8 fix for this?
907
        $c = Encode::decode('UTF-8', $c);
908
        push @cols, $c;
909
    }
910
    return @cols;
911
}
903
}
912
904
913
# pass $sth, get back a TMPL_LOOP-able set of names for the column headers
905
# pass $sth, get back a TMPL_LOOP-able set of names for the column headers
914
- 

Return to bug 11944