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