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

(-)a/authorities/authorities.pl (-8 / +4 lines)
Lines 404-409 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
                        push(
408
                        push(
408
                            @subfields_data,
409
                            @subfields_data,
409
                            &create_input(
410
                            &create_input(
Lines 419-424 sub build_tabs { Link Here
419
                            my $value    = $subfields[$subfieldcount][1];
420
                            my $value    = $subfields[$subfieldcount][1];
420
                            next if ( length $subfield != 1 );
421
                            next if ( length $subfield != 1 );
421
                            next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
422
                            next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
423
                            next if $tagslib->{$tag}->{$subfield}->{hidden};
422
                            push(
424
                            push(
423
                                @subfields_data,
425
                                @subfields_data,
424
                                &create_input(
426
                                &create_input(
Lines 435-444 sub build_tabs { Link Here
435
                        next if ( length $subfield != 1 );
437
                        next if ( length $subfield != 1 );
436
                        next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
438
                        next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
437
                        next if ( $tag < 10 );
439
                        next if ( $tag < 10 );
438
                        next
440
                        next if $tagslib->{$tag}->{$subfield}->{hidden};
439
                        if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -4 )
440
                            or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 5 )
441
                        );    #check for visibility flag
442
                        next if ( defined( $field->subfield($subfield) ) );
441
                        next if ( defined( $field->subfield($subfield) ) );
443
                        push(
442
                        push(
444
                            @subfields_data,
443
                            @subfields_data,
Lines 477-485 sub build_tabs { Link Here
477
                my @subfields_data;
476
                my @subfields_data;
478
                foreach my $subfield ( sort( keys %{ $tagslib->{$tag} } ) ) {
477
                foreach my $subfield ( sort( keys %{ $tagslib->{$tag} } ) ) {
479
                    next if ( length $subfield != 1 );
478
                    next if ( length $subfield != 1 );
480
                    next if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -5 )
479
                    next if $tagslib->{$tag}->{$subfield}->{hidden};
481
                                or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 4 ) )
482
                            ;    #check for visibility flag
483
                    next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
480
                    next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop );
484
                    push(
481
                    push(
485
                        @subfields_data,
482
                        @subfields_data,
486
- 

Return to bug 18811