Lines 236-242
for my $subfield (@subfields) {
Link Here
|
236 |
say sprintf('Subfield already exists: %s$%s', $subfield->{tagfield}, $subfield->{tagsubfield}); |
236 |
say sprintf('Subfield already exists: %s$%s', $subfield->{tagfield}, $subfield->{tagsubfield}); |
237 |
if ($force) { |
237 |
if ($force) { |
238 |
say sprintf('Force mode is active, updating subfield %s$%s', $subfield->{tagfield}, $subfield->{tagsubfield}); |
238 |
say sprintf('Force mode is active, updating subfield %s$%s', $subfield->{tagfield}, $subfield->{tagsubfield}); |
239 |
$mss->update($subfield); |
239 |
|
|
|
240 |
# Do not modify the tab of existing subfield |
241 |
my %values = %$subfield; |
242 |
delete $values{tab}; |
243 |
|
244 |
$mss->update(\%values); |
240 |
} |
245 |
} |
241 |
next; |
246 |
next; |
242 |
} |
247 |
} |
Lines 299-305
for my $authsubfield (@authsubfields) {
Link Here
|
299 |
say sprintf('Auth subfield already exists: %s$%s (%s)', $authsubfield->{tagfield}, $authsubfield->{tagsubfield}, $authsubfield->{authtypecode}); |
304 |
say sprintf('Auth subfield already exists: %s$%s (%s)', $authsubfield->{tagfield}, $authsubfield->{tagsubfield}, $authsubfield->{authtypecode}); |
300 |
if ($force) { |
305 |
if ($force) { |
301 |
say sprintf('Force mode is active, updating auth subfield %s$%s (%s)', $authsubfield->{tagfield}, $authsubfield->{tagsubfield}, $authsubfield->{authtypecode}); |
306 |
say sprintf('Force mode is active, updating auth subfield %s$%s (%s)', $authsubfield->{tagfield}, $authsubfield->{tagsubfield}, $authsubfield->{authtypecode}); |
302 |
$ass->update($authsubfield); |
307 |
|
|
|
308 |
# Do not modify the tab of existing subfield |
309 |
my %values = %$authsubfield; |
310 |
delete $values{tab}; |
311 |
|
312 |
$ass->update(\%values); |
303 |
} |
313 |
} |
304 |
next; |
314 |
next; |
305 |
} |
315 |
} |
306 |
- |
|
|