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