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