Parent Directory | Revision Log | Patch
revision 516 by dpavlin, Tue May 16 15:23:12 2006 UTC | revision 640 by dpavlin, Wed Sep 6 19:52:36 2006 UTC | |
---|---|---|
# | Line 146 sub validate_errors { | Line 146 sub validate_errors { |
146 | foreach my $sf (keys %{ $v }) { | foreach my $sf (keys %{ $v }) { |
147 | # permited subfield? | # permited subfield? |
148 | if (! first { $_ eq $sf } @{ $r->{$f} }) { | if (! first { $_ eq $sf } @{ $r->{$f} }) { |
149 | push @errors, "$f has unknown subfield: $sf"; | push @errors, "$f has unknown subfield: $sf" if ($sf ne 'subfields'); |
150 | } | } |
151 | } | } |
152 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |