|
Lines 912-925
elsif ($phase eq 'Save Compound'){
Link Here
|
| 912 |
# pass $sth, get back an array of names for the column headers |
912 |
# pass $sth, get back an array of names for the column headers |
| 913 |
sub header_cell_values { |
913 |
sub header_cell_values { |
| 914 |
my $sth = shift or return (); |
914 |
my $sth = shift or return (); |
| 915 |
my @cols; |
915 |
return @{$sth->{NAME}}; |
| 916 |
foreach my $c (@{$sth->{NAME}}) { |
|
|
| 917 |
# TODO in Bug 11944 |
| 918 |
#FIXME apparently DBI still needs a utf8 fix for this? |
| 919 |
$c = Encode::decode('UTF-8', $c); |
| 920 |
push @cols, $c; |
| 921 |
} |
| 922 |
return @cols; |
| 923 |
} |
916 |
} |
| 924 |
|
917 |
|
| 925 |
# pass $sth, get back a TMPL_LOOP-able set of names for the column headers |
918 |
# pass $sth, get back a TMPL_LOOP-able set of names for the column headers |
| 926 |
- |
|
|