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 # Determine how we will check it. If the source is an array reference, we do an array check
if(ref($settings -> {"source"}) eq "ARRAY") { 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"}}) { foreach my $check (@{$settings -> {"source"}}) {
if(ref($check) eq "HASH") { $check = $check-> {"value"} if(ref($check) eq "HASH");
return ($value, undef) if($check -> {"value"} eq $value);
} else { # Fix to lowercase if case sensitivity is off
return ($value, undef) if($check eq $value); $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 # If the source is not a reference, we assue it is the table name to check