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