199 |
|
|
200 |
if ( defined( $self->{must_exist_sf}->{$f} ) ) { |
if ( defined( $self->{must_exist_sf}->{$f} ) ) { |
201 |
foreach my $sf (sort keys %{ $self->{must_exist_sf}->{$f} }) { |
foreach my $sf (sort keys %{ $self->{must_exist_sf}->{$f} }) { |
202 |
warn "====> $f $sf must exist\n"; |
#warn "====> $f $sf must exist\n"; |
203 |
push @errors, "$f missing required subfield $sf" |
push @errors, "$f missing required subfield $sf" |
204 |
unless ( |
unless ( |
205 |
defined( $subfields->{$f} ) && |
defined( $subfields->{$sf} ) |
|
defined( $subfields->{$f}->{$sf} ) |
|
206 |
) |
) |
207 |
} |
} |
208 |
} |
} |