Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 11797: fix odd number of elements in hash (UNIMARC)

Browse source 
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:
Jonathan Druart 2014-04-15 11:08:54 +02:00 committed by Galen Charlton
parent 129bc32811
commit fa989631f6
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
C4/AuthoritiesMarc.pm
View file

@ -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..');