Lines 126-131
sub update_field {
Link Here
|
126 |
foreach my $field ( @fields ) { |
126 |
foreach my $field ( @fields ) { |
127 |
$field->update( "$subfieldName" => $values[$i++] ); |
127 |
$field->update( "$subfieldName" => $values[$i++] ); |
128 |
} |
128 |
} |
|
|
129 |
if ( $i <= scalar @values - 1 ) { |
130 |
foreach my $field ( @fields ) { |
131 |
foreach my $j ( $i .. scalar( @values ) - 1) { |
132 |
$field->add_subfields( "$subfieldName" => $values[$j] ); |
133 |
} |
134 |
} |
135 |
} |
129 |
} else { |
136 |
} else { |
130 |
## Field does not exist, create it. |
137 |
## Field does not exist, create it. |
131 |
foreach my $value ( @values ) { |
138 |
foreach my $value ( @values ) { |
132 |
- |
|
|