From 1460770da4a63e4281c0a68c2646b5faed6eb849 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Wed, 13 Feb 2013 17:44:54 +0000
Subject: [PATCH] Skip undefined policy values.

---
 Webperl/Block.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Webperl/Block.pm b/Webperl/Block.pm
index 947df7a..5ff29a5 100644
--- a/Webperl/Block.pm
+++ b/Webperl/Block.pm
@@ -410,6 +410,7 @@ sub build_password_policy {
 
     my $policystr = "";
     foreach my $name (@{$policy -> {"policy_order"}}) {
+        next if(!$policy -> {"name"});
         $policystr .= $self -> {"template"} -> load_template($template, {"***policy***" => "{L_LOGIN_".uc($name)."}",
                                                                          "***value***"  => $policy -> {$name}});
     }