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

(-)a/Koha/Biblio/Metadata/Extractor/MARC.pm (-1 / +19 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
85
=cut
86
87
sub get_control_number {
88
    my ($self) = @_;
89
90
    my $record = $self->metadata;
91
    my $field  = $record->field('001');
92
93
    if ($field) {
94
        return $field->data();
95
    }
96
}
97
79
=head3 _normalize_string
98
=head3 _normalize_string
80
99
81
    my $normalized_string = $self->_normalize_string($string);
100
    my $normalized_string = $self->_normalize_string($string);
82
- 

Return to bug 37380