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

(-)a/Koha/Biblio/Metadata/Extractor/MARC.pm (-1 / +24 lines)
Lines 76-81 sub metadata { Link Here
76
    return $self->{metadata};
76
    return $self->{metadata};
77
}
77
}
78
78
79
=head2 get_control_number
80
81
    my $control_number = $extractor->get_control_number();
82
83
Returns the control number/record identifier as extracted from the metadata.
84
It returns an empty string if no 001 present or if undef.
85
86
=cut
87
88
sub get_control_number {
89
    my ($self) = @_;
90
91
    my $record = $self->metadata;
92
    my $field  = $record->field('001');
93
94
    my $control_number = q{};
95
96
    if ($field) {
97
        $control_number = $field->data() // q{};
98
    }
99
100
    return $control_number;
101
}
102
79
=head3 _normalize_string
103
=head3 _normalize_string
80
104
81
    my $normalized_string = $self->_normalize_string($string);
105
    my $normalized_string = $self->_normalize_string($string);
82
- 

Return to bug 37380