Lines 1269-1276
sub GetMarcControlnumber {
Link Here
|
1269 |
# Control number or Record identifier are the same field in MARC21 and UNIMARC |
1269 |
# Control number or Record identifier are the same field in MARC21 and UNIMARC |
1270 |
# Keep $marcflavour for possible later use |
1270 |
# Keep $marcflavour for possible later use |
1271 |
if ($marcflavour eq "MARC21" || $marcflavour eq "UNIMARC") { |
1271 |
if ($marcflavour eq "MARC21" || $marcflavour eq "UNIMARC") { |
1272 |
$controlnumber = $record->field('001')->data(); |
1272 |
my $controlnumberField = $record->field('001'); |
|
|
1273 |
if ($controlnumberField) { |
1274 |
$controlnumber = $controlnumberField->data(); |
1275 |
} |
1273 |
} |
1276 |
} |
|
|
1277 |
return $controlnumber; |
1274 |
} |
1278 |
} |
1275 |
|
1279 |
|
1276 |
=head2 GetMarcNotes |
1280 |
=head2 GetMarcNotes |
1277 |
- |
|
|