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