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