|
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 |
- |
|
|