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

Skip checks if not required and no default set.

Browse Source
This commit is contained in:
Chris 2014-11-24 13:29:52 +00:00
parent 1ecf0ab7f5
commit ca7973e384
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Webperl/Block.pm
View File

@ -165,8 +165,10 @@ sub validate_string {
if($settings -> {"required"}) {
return ("", $self -> {"template"} -> replace_langvar("BLOCK_VALIDATE_NOTSET", {"***field***" => $settings -> {"nicename"}}));
# Otherwise fall back on the default.
} elsif(!$settings -> {"default"}) {
return ("", undef);
} else {
$text = $settings -> {"default"} || "";
$text = $settings -> {"default"};
}
}