/[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 1049 by dpavlin, Mon Nov 19 16:50:10 2007 UTC revision 1168 by dpavlin, Sat Apr 25 17:13:20 2009 UTC
# Line 3  package WebPAC::Validate; Line 3  package WebPAC::Validate;
3  use warnings;  use warnings;
4  use strict;  use strict;
5    
6  use blib;  use lib 'lib';
7    
8  use base 'WebPAC::Common';  use base 'WebPAC::Common';
9  use File::Slurp;  use File::Slurp;
# Line 294  sub validate_rec { Line 294  sub validate_rec {
294                                                          if ( ref($v->{$sf}) eq 'ARRAY' ) {                                                          if ( ref($v->{$sf}) eq 'ARRAY' ) {
295                                                                  $sf_repeatable->{$sf}++;                                                                  $sf_repeatable->{$sf}++;
296                                                          };                                                          };
297                                                          if (! first { $_ eq $sf } @{ $r->{$f} }) {                                                          if (! defined first { $_ eq $sf } @{ $r->{$f} }) {
298                                                                  $errors->{ $f }->{subfield}->{extra}->{$sf}++;                                                                  $errors->{ $f }->{subfield}->{extra}->{$sf}++;
299                                                          }                                                          }
300                                                  }                                                  }
Legend:
Removed from v.1049  
changed lines
  Added in v.1168
  ViewVC Help
Powered by ViewVC 1.1.26