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 |