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