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