From b894cbf9a46022ce04b4339c2bd0601297145cd6 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 19 Nov 2007 16:50:14 +0000
Subject: [PATCH]  r1637@llin:  dpavlin | 2007-11-19 17:50:06 +0100  and fix
 for subfield 0

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1051 07558da8-63fa-0310-ba24-9fe276d99e06
---
 lib/WebPAC/Validate.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebPAC/Validate.pm b/lib/WebPAC/Validate.pm
index 4e30176..d7ed6fb 100644
--- a/lib/WebPAC/Validate.pm
+++ b/lib/WebPAC/Validate.pm
@@ -294,7 +294,7 @@ sub validate_rec {
 							if ( ref($v->{$sf}) eq 'ARRAY' ) {
 								$sf_repeatable->{$sf}++;
 							};
-							if (! first { $_ eq $sf } @{ $r->{$f} }) {
+							if (! defined first { $_ eq $sf } @{ $r->{$f} }) {
 								$errors->{ $f }->{subfield}->{extra}->{$sf}++;
 							}
 						}
-- 
2.20.1