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

(-)a/authorities/authorities.pl (-5 / +4 lines)
Lines 404-410 sub build_tabs { Link Here
404
                            $subfield = '@';
404
                            $subfield = '@';
405
                        }
405
                        }
406
                        next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
406
                        next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
407
                        next if $tagslib->{$tag}->{$subfield}->{hidden};
407
                        next if $tagslib->{$tag}->{$subfield}->{hidden} && $subfield ne '9';
408
                        push(
408
                        push(
409
                            @subfields_data,
409
                            @subfields_data,
410
                            &create_input(
410
                            &create_input(
Lines 420-426 sub build_tabs { Link Here
420
                            my $value    = $subfields[$subfieldcount][1];
420
                            my $value    = $subfields[$subfieldcount][1];
421
                            next if ( length $subfield != 1 );
421
                            next if ( length $subfield != 1 );
422
                            next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
422
                            next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
423
                            next if $tagslib->{$tag}->{$subfield}->{hidden};
423
                            next if $tagslib->{$tag}->{$subfield}->{hidden} && $subfield ne '9';
424
                            push(
424
                            push(
425
                                @subfields_data,
425
                                @subfields_data,
426
                                &create_input(
426
                                &create_input(
Lines 437-443 sub build_tabs { Link Here
437
                        next if ( length $subfield != 1 );
437
                        next if ( length $subfield != 1 );
438
                        next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
438
                        next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
439
                        next if ( $tag < 10 );
439
                        next if ( $tag < 10 );
440
                        next if $tagslib->{$tag}->{$subfield}->{hidden};
440
                        next if $tagslib->{$tag}->{$subfield}->{hidden} && $subfield ne '9';
441
                        next if ( defined( $field->subfield($subfield) ) );
441
                        next if ( defined( $field->subfield($subfield) ) );
442
                        push(
442
                        push(
443
                            @subfields_data,
443
                            @subfields_data,
Lines 476-482 sub build_tabs { Link Here
476
                my @subfields_data;
476
                my @subfields_data;
477
                foreach my $subfield ( sort( keys %{ $tagslib->{$tag} } ) ) {
477
                foreach my $subfield ( sort( keys %{ $tagslib->{$tag} } ) ) {
478
                    next if ( length $subfield != 1 );
478
                    next if ( length $subfield != 1 );
479
                    next if $tagslib->{$tag}->{$subfield}->{hidden};
479
                    next if $tagslib->{$tag}->{$subfield}->{hidden} && $subfield ne '9';
480
                    next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
480
                    next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
481
                    push(
481
                    push(
482
                        @subfields_data,
482
                        @subfields_data,
483
- 

Return to bug 18811