r1235@llin: dpavlin | 2007-05-24 16:34:31 +0200

[webpac2] / lib / WebPAC / Validate.pm

diff --git a/lib/WebPAC/Validate.pm b/lib/WebPAC/Validate.pm
index 8dbc24f..c29c81d 100644 (file)
--- a/lib/WebPAC/Validate.pm
+++ b/lib/WebPAC/Validate.pm
@@ -193,11 +193,11 @@ sub validate_rec {
                                        $self->{_delimiters_templates}->{$f}->{$template}++;
 
                                        if ( my $v = $self->{_validate_delimiters_templates} ) {
-                                               if ( ! defined( $v->{$template} ) ) {
+                                               if ( ! defined( $v->{$f}->{$template} ) ) {
                                                        $errors->{$f}->{invalid_delimiters_combination} = $template;
                                                        $errors->{$f}->{dump} = $subfield_dump;
-                                               } else {
-                                                       warn "## $f $template ok\n";
+                                               #} else {
+                                               #       warn "## $f $template ok\n";
                                                }
                                        }
                                }