--- trunk/lib/WebPAC/Validate.pm	2007/05/20 16:19:16	827
+++ trunk/lib/WebPAC/Validate.pm	2007/05/20 16:19:17	828
@@ -159,15 +159,14 @@
 		# first check delimiters
 		if ( my $regex = $self->{delimiters_regex} ) {
 
-			my $template = '';
-
 			foreach my $v (@{ $rec->{$f} }) {
 					warn "## v = ", dump( $v );
 					my $l = _pack_subfields_hash( $v, 1 );
 					warn "## $l [$regex]\n";
+					my $template = '';
 					$l =~ s/$regex/$template.=$1/eg && warn "## new: $l\n";
 					warn "## template: $template\n";
-					$self->{_delimiters_templates}->{$f}->{$template}++;
+					$self->{_delimiters_templates}->{$f}->{$template}++ if ( $template );
 			}
 
 		}