Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Allow special catacters in table names.

Browse Source
This commit is contained in:
Chris 2012-09-03 11:14:51 +01:00
parent c83d7aa43e
commit 6bb244472f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Block.pm
View File

@ -252,7 +252,7 @@ sub validate_options {
# If the source is not a reference, we assue it is the table name to check # If the source is not a reference, we assue it is the table name to check
} elsif(not ref($settings -> {"source"})) { } elsif(not ref($settings -> {"source"})) {
my $checkh = $self -> {"dbh"} -> prepare("SELECT * my $checkh = $self -> {"dbh"} -> prepare("SELECT *
FROM ".$settings -> {"source"}." FROM `".$settings -> {"source"}."`
".$settings -> {"where"}); ".$settings -> {"where"});
# Check for the value in the table... # Check for the value in the table...
$checkh -> execute($value) $checkh -> execute($value)