/[webpac2]/trunk/lib/WebPAC/Validate.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Validate.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 840 by dpavlin, Thu May 24 14:42:40 2007 UTC revision 843 by dpavlin, Fri May 25 19:49:39 2007 UTC
# Line 140  sub new { Line 140  sub new {
140                                  }                                  }
141                          }                          }
142                          close($d);                          close($d);
143                          warn "_validate_delimiters_templates = ",dump( $self->{_validate_delimiters_templates} );                          #warn "_validate_delimiters_templates = ",dump( $self->{_validate_delimiters_templates} );
144                  } else {                  } else {
145                          $log->warn("delimiters path $path doesn't exist, it will be created after this run");                          $log->warn("delimiters path $path doesn't exist, it will be created after this run");
146                  }                  }
# Line 194  sub validate_rec { Line 194  sub validate_rec {
194    
195                                          if ( my $v = $self->{_validate_delimiters_templates} ) {                                          if ( my $v = $self->{_validate_delimiters_templates} ) {
196                                                  if ( ! defined( $v->{$f}->{$template} ) ) {                                                  if ( ! defined( $v->{$f}->{$template} ) ) {
197                                                          $errors->{$f}->{invalid_delimiters_combination} = $template;                                                          $errors->{$f}->{potentially_invalid_combination} = $template;
198                                                          $errors->{$f}->{dump} = $subfield_dump;                                                          $errors->{$f}->{dump} = $subfield_dump;
199                                                  #} else {                                                  #} else {
200                                                  #       warn "## $f $template ok\n";                                                  #       warn "## $f $template ok\n";
Legend:
Removed from v.840  
changed lines
  Added in v.843
  ViewVC Help
Powered by ViewVC 1.1.26