Lines 653-660
sub build_tabs {
Link Here
|
653 |
foreach my $subfield ( sort( keys %{ $tagslib->{$tag} } ) ) { |
653 |
foreach my $subfield ( sort( keys %{ $tagslib->{$tag} } ) ) { |
654 |
next if ( length $subfield != 1 ); |
654 |
next if ( length $subfield != 1 ); |
655 |
next |
655 |
next |
656 |
if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -5 ) |
656 |
if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -4 ) |
657 |
or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 4 ) ) |
657 |
or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 5 ) ) |
658 |
and not ( $subfield eq "9" and |
658 |
and not ( $subfield eq "9" and |
659 |
exists($tagslib->{$tag}->{'a'}->{authtypecode}) and |
659 |
exists($tagslib->{$tag}->{'a'}->{authtypecode}) and |
660 |
defined($tagslib->{$tag}->{'a'}->{authtypecode}) and |
660 |
defined($tagslib->{$tag}->{'a'}->{authtypecode}) and |
661 |
- |
|
|