Bug 11797: fix odd number of elements in hash (UNIMARC)
I got the same warning for my UNIMARC DB. Signed-off-by: Jonathan Druart <jonathan.druart@biblibre.com> Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
parent
129bc32811
commit
fa989631f6
1 changed files with 4 additions and 4 deletions
|
@ -967,7 +967,7 @@ sub BuildSummary {
|
|||
foreach my $field ($record->field('2..')) {
|
||||
push @authorized, {
|
||||
heading => $field->as_string('abcdefghijlmnopqrstuvwxyz'),
|
||||
hemain => $field->subfield('a'),
|
||||
hemain => ( $field->subfield('a') // undef ),
|
||||
field => $field->tag(),
|
||||
};
|
||||
}
|
||||
|
@ -979,7 +979,7 @@ sub BuildSummary {
|
|||
my $thesaurus = $field->subfield('2') ? "thes. : ".$thesaurus{"$field->subfield('2')"}." : " : '';
|
||||
push @seefrom, {
|
||||
heading => $thesaurus . $field->as_string('abcdefghijlmnopqrstuvwxyz'),
|
||||
hemain => $field->subfield('a'),
|
||||
hemain => ( $field->subfield('a') // undef ),
|
||||
type => 'seefrom',
|
||||
field => $field->tag(),
|
||||
};
|
||||
|
@ -993,9 +993,9 @@ sub BuildSummary {
|
|||
field => $_->tag,
|
||||
type => $type,
|
||||
heading => $heading,
|
||||
hemain => $_->subfield('a'),
|
||||
hemain => ( $_->subfield('a') // undef ),
|
||||
search => $heading,
|
||||
authid => $_->subfield('9'),
|
||||
authid => ( $_->subfield('9') // undef ),
|
||||
}
|
||||
} $record->field('5..');
|
||||
|
||||
|
|
Loading…
Reference in a new issue