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 |
- |
|
|