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

Allow case insensitive matching on source arrays

Browse Source
This commit is contained in:
Chris 2019-08-15 13:27:18 +01:00
parent 42be4997fd
commit f59fae3738
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
Webperl/Block.pm
View File

@ -313,12 +313,16 @@ sub validate_options {
# Determine how we will check it. If the source is an array reference, we do an array check
if(ref($settings -> {"source"}) eq "ARRAY") {
# Fix to lowercase if case sensitivity is off
$value = lc($value) if($settings -> {"nocase"});
foreach my $check (@{$settings -> {"source"}}) {
if(ref($check) eq "HASH") {
return ($value, undef) if($check -> {"value"} eq $value);
} else {
return ($value, undef) if($check eq $value);
}
$check = $check-> {"value"} if(ref($check) eq "HASH");
# Fix to lowercase if case sensitivity is off
$check = lc($check) if($settings -> {"nocase"});
return ($value, undef) if($check eq $value);
}
# If the source is not a reference, we assue it is the table name to check