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

Support option list arrays (as used in Template) in validation.

Browse Source
This commit is contained in:
Chris 2013-05-13 10:09:46 +01:00
parent 3b677627a3
commit 6d85f93feb
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Webperl/Block.pm
View File

@ -246,7 +246,11 @@ 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") {
foreach my $check (@{$settings -> {"source"}}) { foreach my $check (@{$settings -> {"source"}}) {
return ($value, undef) if($check eq $value); if(ref($check) eq "HASH") {
return ($value, undef) if($check -> {"value"} eq $value);
} else {
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