View | Details | Raw Unified | Return to bug 5430
Collapse All | Expand All

(-)a/C4/Biblio.pm (-2 / +5 lines)
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
- 

Return to bug 5430