/[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 864 by dpavlin, Sun May 27 22:24:30 2007 UTC revision 1051 by dpavlin, Mon Nov 19 16:50:14 2007 UTC
# Line 135  sub read_validate_file { Line 135  sub read_validate_file {
135                  if (@d) {                  if (@d) {
136                          $v->{$fld} = [ map {                          $v->{$fld} = [ map {
137                                  my $sf = $_;                                  my $sf = $_;
138                                  if ( $sf =~ s/!(\*)?$/$1/ ) {                                  if ( $sf =~ s/!// ) {
139                                          $self->{must_exist_sf}->{ $fld }->{ $sf }++;                                          $self->{must_exist_sf}->{ $fld }->{ $sf }++;
140                                  };                                  };
141                                  $sf;                                  $sf;
# Line 273  sub validate_rec { Line 273  sub validate_rec {
273  #                                       $errors->{dump} = $rec_dump if ($rec_dump);  #                                       $errors->{dump} = $rec_dump if ($rec_dump);
274                                  } elsif (ref($v) ne 'HASH') {                                  } elsif (ref($v) ne 'HASH') {
275                                          $errors->{$f}->{missing_subfield} = join(",", @{ $r->{$f} }) . " required";                                          $errors->{$f}->{missing_subfield} = join(",", @{ $r->{$f} }) . " required";
276                                            $errors->{$f}->{dump} = $v;
277                                          next;                                          next;
278                                  } else {                                  } else {
279    
# Line 293  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                                                  }                                                  }
# Line 592  sub save_delimiters_templates { Line 593  sub save_delimiters_templates {
593          close($d);          close($d);
594    
595          $log->info("new delimiters templates saved to $path");          $log->info("new delimiters templates saved to $path");
596    
597            return 1;
598  }  }
599    
600  =head1 AUTHOR  =head1 AUTHOR
Legend:
Removed from v.864  
changed lines
  Added in v.1051
  ViewVC Help
Powered by ViewVC 1.1.26