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 |
- |
|
|