@@ -, +, @@ --- Koha/SimpleMARC.pm | 7 +++++++ 1 file changed, 7 insertions(+) --- a/Koha/SimpleMARC.pm +++ a/Koha/SimpleMARC.pm @@ -126,6 +126,13 @@ sub update_field { foreach my $field ( @fields ) { $field->update( "$subfieldName" => $values[$i++] ); } + if ( $i <= scalar @values - 1 ) { + foreach my $field ( @fields ) { + foreach my $j ( $i .. scalar( @values ) - 1) { + $field->add_subfields( "$subfieldName" => $values[$j] ); + } + } + } } else { ## Field does not exist, create it. foreach my $value ( @values ) { --