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

(-)a/C4/Biblio.pm (-1 / +1 lines)
Lines 824-830 sub GetISBDView { Link Here
824
        # Process subfield
824
        # Process subfield
825
    }
825
    }
826
826
827
GetMarcStructure creates keys (lib, tab, mandatory, repeatable) for a display purpose.
827
GetMarcStructure creates keys (lib, tab, mandatory, repeatable, important) for a display purpose.
828
These different values should not be processed as valid subfields.
828
These different values should not be processed as valid subfields.
829
829
830
=cut
830
=cut
(-)a/t/db_dependent/Biblio.t (-3 / +3 lines)
Lines 554-560 subtest 'NORMARC' => sub { Link Here
554
};
554
};
555
555
556
subtest 'IsMarcStructureInternal' => sub {
556
subtest 'IsMarcStructureInternal' => sub {
557
    plan tests => 8;
557
    plan tests => 9;
558
    my $tagslib = GetMarcStructure();
558
    my $tagslib = GetMarcStructure();
559
    my @internals;
559
    my @internals;
560
    for my $tag ( sort keys %$tagslib ) {
560
    for my $tag ( sort keys %$tagslib ) {
Lines 564-574 subtest 'IsMarcStructureInternal' => sub { Link Here
564
        }
564
        }
565
    }
565
    }
566
    @internals = uniq @internals;
566
    @internals = uniq @internals;
567
    is( scalar(@internals), 6, 'expect 6 internals');
567
    is( scalar(@internals), 7, 'expect 7 internals');
568
    is( grep( /^lib$/, @internals ), 1, 'check lib' );
568
    is( grep( /^lib$/, @internals ), 1, 'check lib' );
569
    is( grep( /^tab$/, @internals ), 1, 'check tab' );
569
    is( grep( /^tab$/, @internals ), 1, 'check tab' );
570
    is( grep( /^mandatory$/, @internals ), 1, 'check mandatory' );
570
    is( grep( /^mandatory$/, @internals ), 1, 'check mandatory' );
571
    is( grep( /^repeatable$/, @internals ), 1, 'check repeatable' );
571
    is( grep( /^repeatable$/, @internals ), 1, 'check repeatable' );
572
    is( grep( /^important$/, @internals ), 1, 'check important' );
572
    is( grep( /^a$/, @internals ), 0, 'no subfield a' );
573
    is( grep( /^a$/, @internals ), 0, 'no subfield a' );
573
    is( grep( /^ind1_defaultvalue$/, @internals ), 1, 'check indicator 1 default value' );
574
    is( grep( /^ind1_defaultvalue$/, @internals ), 1, 'check indicator 1 default value' );
574
    is( grep( /^ind2_defaultvalue$/, @internals ), 1, 'check indicator 2 default value' );
575
    is( grep( /^ind2_defaultvalue$/, @internals ), 1, 'check indicator 2 default value' );
575
- 

Return to bug 8643