View | Details | Raw Unified | Return to bug 24780
Collapse All | Expand All

(-)a/tools/batchMod.pl (-4 / +2 lines)
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
- 

Return to bug 24780