fix crash introduced in previous patch
In the previous patch, - my @subf = $field->subfields; - (defined @subf) or @subf = (); is not equivalent to + my @subf = $field->subfields || (); as, the results of $field->subields is interpeted in scalar context, not list context, resutling in @subf containing the number of subfields, not the subfield data itself, which engenders the error Can't use string ("1") as an ARRAY ref while "strict refs" in use later on. Changing the operator to 'or' instead of '||' fixes this. Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
parent
46b9ee7a93
commit
6c2b7f8ccb
1 changed files with 1 additions and 1 deletions
|
@ -197,7 +197,7 @@ my ($branchtagfield, $branchtagsubfield) = &GetMarcFromKohaField("items.homebran
|
|||
|
||||
foreach my $field (@fields) {
|
||||
next if ($field->tag()<10);
|
||||
my @subf = $field->subfields || ();
|
||||
my @subf = $field->subfields or (); # don't use ||, as that forces $field->subfelds to be interpreted in scalar context
|
||||
my %this_row;
|
||||
# loop through each subfield
|
||||
for my $i (0..$#subf) {
|
||||
|
|
Loading…
Reference in a new issue