merging some 5.4.4 changes
This commit is contained in:
parent
ac102923ce
commit
eb4a6bca87
8 changed files with 30 additions and 5 deletions
|
|
@ -20,7 +20,7 @@ sub process {
|
|||
my ($output, @data, $rownum, $temp);
|
||||
my ($statement, $format) = WebGUI::Macro::getParams(shift);
|
||||
$format = '^0;' if ($format eq "");
|
||||
if ($statement =~ /^select/i || $statement =~ /^show/i || $statement =~ /^describe/i) {
|
||||
if ($statement =~ /^\s+select/i || $statement =~ /^\s+show/i || $statement =~ /^\s+describe/i) {
|
||||
my $sth = WebGUI::SQL->unconditionalRead($statement);
|
||||
unless ($sth->errorCode < 1) {
|
||||
return '<p><b>SQL Macro Failed:</b> '.$sth->errorMessage.'<p>';
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue