|
Lines 430-438
foreach my $tag (sort keys %{$tagslib}) {
Link Here
|
| 430 |
next if IsMarcStructureInternal( $tagslib->{$tag}{$subfield} ); |
430 |
next if IsMarcStructureInternal( $tagslib->{$tag}{$subfield} ); |
| 431 |
next if (not $allowAllSubfields and $restrictededition && !grep { $tag . '$' . $subfield eq $_ } @subfieldsToAllow ); |
431 |
next if (not $allowAllSubfields and $restrictededition && !grep { $tag . '$' . $subfield eq $_ } @subfieldsToAllow ); |
| 432 |
next if ($tagslib->{$tag}->{$subfield}->{'tab'} ne "10"); |
432 |
next if ($tagslib->{$tag}->{$subfield}->{'tab'} ne "10"); |
| 433 |
# barcode and stocknumber are not meant to be batch-modified |
433 |
# barcode is not meant to be batch-modified |
| 434 |
next if $tagslib->{$tag}->{$subfield}->{'kohafield'} eq 'items.barcode'; |
434 |
next if $tagslib->{$tag}->{$subfield}->{'kohafield'} eq 'items.barcode'; |
| 435 |
next if $tagslib->{$tag}->{$subfield}->{'kohafield'} eq 'items.stocknumber'; |
|
|
| 436 |
my %subfield_data; |
435 |
my %subfield_data; |
| 437 |
|
436 |
|
| 438 |
my $index_subfield = int(rand(1000000)); |
437 |
my $index_subfield = int(rand(1000000)); |
| 439 |
- |
|
|