Lines 192-198
elsif ( $phase eq 'Update SQL'){
Link Here
|
192 |
push @errors, {sqlerr => $1}; |
192 |
push @errors, {sqlerr => $1}; |
193 |
} |
193 |
} |
194 |
elsif ($sql !~ /^(SELECT)/i) { |
194 |
elsif ($sql !~ /^(SELECT)/i) { |
195 |
push @errors, {queryerr => 1}; |
195 |
push @errors, {queryerr => "No SELECT"}; |
196 |
} |
196 |
} |
197 |
|
197 |
|
198 |
if (@errors) { |
198 |
if (@errors) { |
Lines 929-934
elsif ($phase eq 'Save Compound'){
Link Here
|
929 |
# pass $sth, get back an array of names for the column headers |
929 |
# pass $sth, get back an array of names for the column headers |
930 |
sub header_cell_values { |
930 |
sub header_cell_values { |
931 |
my $sth = shift or return (); |
931 |
my $sth = shift or return (); |
|
|
932 |
return '' unless ($sth->{NAME}); |
932 |
return @{$sth->{NAME}}; |
933 |
return @{$sth->{NAME}}; |
933 |
} |
934 |
} |
934 |
|
935 |
|
935 |
- |
|
|