Merge remote branch 'kc/new/enh/bug_5430' into kcmaster

This commit is contained in:
Chris Cormack 2010-11-30 07:02:18 +13:00
commit 9c303a4e95
1 changed files with 5 additions and 1 deletions

View File

@ -1269,8 +1269,12 @@ sub GetMarcControlnumber {
# Control number or Record identifier are the same field in MARC21 and UNIMARC
# Keep $marcflavour for possible later use
if ($marcflavour eq "MARC21" || $marcflavour eq "UNIMARC") {
$controlnumber = $record->field('001')->data();
my $controlnumberField = $record->field('001');
if ($controlnumberField) {
$controlnumber = $controlnumberField->data();
}
}
return $controlnumber;
}
=head2 GetMarcNotes