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

Okay, this is odd.

Browse Source
This commit is contained in:
Chris 2012-08-01 12:37:21 +01:00
parent 5d56f4e7ff
commit f3b5b6594a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Block.pm
View File

@ -197,12 +197,12 @@ sub validate_string {
# string as is allowed, and an error
return (substr($text, 0, $settings -> {"maxlen"}), $self -> {"template"} -> replace_langvar("BLOCK_VALIDATE_TOOLONG", "", {"***field***" => $settings -> {"nicename"},
"***maxlen***" => $settings -> {"maxlen"}}))
if($settings -> {"maxlen"} && length($text) > $settings -> {"maxlen"});
if($settings -> {"maxlen"} && (length($text) > $settings -> {"maxlen"}));
# Is the string too short (we only need to check if it's required or has content) ? If so, store it and return an error.
# Is the string too short? If so, store it and return an error.
return ($text, $self -> {"template"} -> replace_langvar("BLOCK_VALIDATE_TOOSHORT", "", {"***field***" => $settings -> {"nicename"},
"***minlen***" => $settings -> {"minlen"}}))
if($settings -> {"minlen"} && length($text) < $settings -> {"minlen"});
if($settings -> {"minlen"} && (length($text) < $settings -> {"minlen"}));
# Get here and all the tests have been passed or skipped
return ($text, undef);