/[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 669 by dpavlin, Mon Sep 11 12:32:51 2006 UTC revision 670 by dpavlin, Mon Sep 11 14:29:08 2006 UTC
# Line 18  WebPAC::Validate - provide simple valida Line 18  WebPAC::Validate - provide simple valida
18    
19  =head1 VERSION  =head1 VERSION
20    
21  Version 0.07  Version 0.08
22    
23  =cut  =cut
24    
25  our $VERSION = '0.07';  our $VERSION = '0.08';
26    
27  =head1 SYNOPSIS  =head1 SYNOPSIS
28    
# Line 194  sub validate_errors { Line 194  sub validate_errors {
194    
195                                                  foreach my $sf (@r_sf) {                                                  foreach my $sf (@r_sf) {
196                                                          $errors->{$f}->{subfield}->{extra_repeatable}->{$sf}++;                                                          $errors->{$f}->{subfield}->{extra_repeatable}->{$sf}++;
197                                                          $errors->{$f}->{dump} =                                                          $errors->{$f}->{dump} = _pack_subfields_hash( $h, 1 );
                                                                 join('', _pack_subfields_hash( $h, 1 ) );  
198                                                  }                                                  }
199    
200                                          }                                          }
# Line 211  sub validate_errors { Line 210  sub validate_errors {
210                                  }                                  }
211                          } elsif (ref($v) eq 'HASH') {                          } elsif (ref($v) eq 'HASH') {
212                                  $errors->{$f}->{unexpected_subfields}++;                                  $errors->{$f}->{unexpected_subfields}++;
213                                  $errors->{$f}->{dump} =                                  $errors->{$f}->{dump} = _pack_subfields_hash( $v, 1 );
                                         join('', _pack_subfields_hash( $v, 1 ) );  
214                          }                          }
215                  }                  }
216          }          }
# Line 294  sub report { Line 292  sub report {
292    
293                          if ($k eq 'dump') {                          if ($k eq 'dump') {
294                                  $dump = $tree->{dump};                                  $dump = $tree->{dump};
295                                  warn "## dump: ",dump($dump),"\n";  #                               warn "## dump: ",dump($dump),"\n";
296                                  next;                                  next;
297                          }                          }
298    
Legend:
Removed from v.669  
changed lines
  Added in v.670
  ViewVC Help
Powered by ViewVC 1.1.26