}
print XF "Record ", $marc->{id}, " did not make the cut: ";
print XF "Missing item_form. " unless ($marc->{item_form});
- print XF "Missing date1. " unless (defined $marc->{date1});
- print XF "Invalid date1: ", $marc->{date1}
- unless (defined $marc->{date1} and $marc->{date1} =~ /\d{4}/);
+ unless (defined $marc->{date1})
+ { print XF "Missing date1. " }
+ else
+ { print XF "Invalid date1: ", $marc->{date1}
+ unless ($marc->{date1} =~ /\d{4}/); }
print XF "Missing record_type. " unless ($marc->{record_type});
print XF "Missing bib_lvl. " unless ($marc->{bib_lvl});
print XF "Missing title. " unless ($marc->{title});