157 |
|
|
158 |
$log->debug("data_structure rec = ", sub { Dumper($rec) }); |
$log->debug("data_structure rec = ", sub { Dumper($rec) }); |
159 |
|
|
160 |
$log->logdie("need unique ID (mfn) in field 000 of record ", sub { Dumper($rec) } ) unless (defined($rec->{'000'})); |
$log->logdie("need unique ID (mfn) in field 000 of record " . Dumper($rec) ) unless (defined($rec->{'000'})); |
161 |
|
|
162 |
my $id = $rec->{'000'}->[0] || $log->logdie("field 000 isn't array!"); |
my $id = $rec->{'000'}->[0] || $log->logdie("field 000 isn't array!"); |
163 |
|
|