--- trunk/lib/WebPAC/Validate.pm 2006/09/06 22:42:37 646 +++ trunk/lib/WebPAC/Validate.pm 2006/09/06 23:13:03 647 @@ -199,11 +199,10 @@ if ( defined( $self->{must_exist_sf}->{$f} ) ) { foreach my $sf (sort keys %{ $self->{must_exist_sf}->{$f} }) { -warn "====> $f $sf must exist\n"; +#warn "====> $f $sf must exist\n"; push @errors, "$f missing required subfield $sf" unless ( - defined( $subfields->{$f} ) && - defined( $subfields->{$f}->{$sf} ) + defined( $subfields->{$sf} ) ) } }