--- trunk/lib/WebPAC/Validate.pm	2007/05/20 16:19:16	827
+++ trunk/lib/WebPAC/Validate.pm	2007/05/23 20:03:12	830
@@ -159,15 +159,12 @@
 		# 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";
-					$l =~ s/$regex/$template.=$1/eg && warn "## new: $l\n";
-					warn "## template: $template\n";
-					$self->{_delimiters_templates}->{$f}->{$template}++;
+					my $template = '';
+					$l =~ s/$regex/$template.=$1/eg;
+#					warn "## template: $template\n";
+					$self->{_delimiters_templates}->{$f}->{$template}++ if ( $template );
 			}
 
 		}