|
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 |
- |
|
|