# "Accompanying material" (300e)
$marc{accomp} = $record->field('300')->subfield('e')
- if (defined $record->field('300')->subfield('e'));
+ if $record->field('300');
# issn, lccn, title, desc, pages, pub, pubyear, edition
$marc{lccn} = $record->field('010')->subfield('a') if $record->field('010');
}
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 ($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});
sub progress_ticker {
return if $conf->{quiet};
- printf("> %d (%d/s)\r", $count, ((time - $start) / $count))
+ printf("> %d (%d/s)\r", $count, ($count / (time - $start + 1)))
if ($count % 100 == 0);
}