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..')) {
|
foreach my $field ($record->field('2..')) {
|
||||||
push @authorized, {
|
push @authorized, {
|
||||||
heading => $field->as_string('abcdefghijlmnopqrstuvwxyz'),
|
heading => $field->as_string('abcdefghijlmnopqrstuvwxyz'),
|
||||||
hemain => $field->subfield('a'),
|
hemain => ( $field->subfield('a') // undef ),
|
||||||
field => $field->tag(),
|
field => $field->tag(),
|
||||||
};
|
};
|
||||||
}
|
}
|
||||||
|
@ -979,7 +979,7 @@ sub BuildSummary {
|
||||||
my $thesaurus = $field->subfield('2') ? "thes. : ".$thesaurus{"$field->subfield('2')"}." : " : '';
|
my $thesaurus = $field->subfield('2') ? "thes. : ".$thesaurus{"$field->subfield('2')"}." : " : '';
|
||||||
push @seefrom, {
|
push @seefrom, {
|
||||||
heading => $thesaurus . $field->as_string('abcdefghijlmnopqrstuvwxyz'),
|
heading => $thesaurus . $field->as_string('abcdefghijlmnopqrstuvwxyz'),
|
||||||
hemain => $field->subfield('a'),
|
hemain => ( $field->subfield('a') // undef ),
|
||||||
type => 'seefrom',
|
type => 'seefrom',
|
||||||
field => $field->tag(),
|
field => $field->tag(),
|
||||||
};
|
};
|
||||||
|
@ -993,9 +993,9 @@ sub BuildSummary {
|
||||||
field => $_->tag,
|
field => $_->tag,
|
||||||
type => $type,
|
type => $type,
|
||||||
heading => $heading,
|
heading => $heading,
|
||||||
hemain => $_->subfield('a'),
|
hemain => ( $_->subfield('a') // undef ),
|
||||||
search => $heading,
|
search => $heading,
|
||||||
authid => $_->subfield('9'),
|
authid => ( $_->subfield('9') // undef ),
|
||||||
}
|
}
|
||||||
} $record->field('5..');
|
} $record->field('5..');
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue