r1219@llin: dpavlin | 2007-05-20 19:28:41 +0200

 cleanup debugging output

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@830 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Validate.pm b/lib/WebPAC/Validate.pm
index a8a5b87..5d59013 100644 (file)
--- a/lib/WebPAC/Validate.pm
+++ b/lib/WebPAC/Validate.pm
@@ -160,12 +160,10 @@ sub validate_rec {
                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 );
                        }