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

Skip undefined policy values.

Browse Source
This commit is contained in:
Chris 2013-02-13 17:44:54 +00:00
parent 7aaf82e266
commit 1460770da4
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Webperl/Block.pm
View File

@ -410,6 +410,7 @@ sub build_password_policy {
my $policystr = ""; my $policystr = "";
foreach my $name (@{$policy -> {"policy_order"}}) { foreach my $name (@{$policy -> {"policy_order"}}) {
next if(!$policy -> {"name"});
$policystr .= $self -> {"template"} -> load_template($template, {"***policy***" => "{L_LOGIN_".uc($name)."}", $policystr .= $self -> {"template"} -> load_template($template, {"***policy***" => "{L_LOGIN_".uc($name)."}",
"***value***" => $policy -> {$name}}); "***value***" => $policy -> {$name}});
} }