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

Fix munging of source array hashes

Browse Source
This commit is contained in:
Chris 2019-09-17 16:08:47 +01:00
parent f59fae3738
commit 3ecc6ecfda
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Webperl/Block.pm
View File

@ -317,12 +317,13 @@ sub validate_options {
$value = lc($value) if($settings -> {"nocase"}); $value = lc($value) if($settings -> {"nocase"});
foreach my $check (@{$settings -> {"source"}}) { foreach my $check (@{$settings -> {"source"}}) {
$check = $check-> {"value"} if(ref($check) eq "HASH"); my $val = $check;
$val = $check -> {"value"} if(ref($check) eq "HASH");
# Fix to lowercase if case sensitivity is off # Fix to lowercase if case sensitivity is off
$check = lc($check) if($settings -> {"nocase"}); $val = lc($val) if($settings -> {"nocase"});
return ($value, undef) if($check eq $value); return ($value, undef) if($val eq $value);
} }
# 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