Lines 455-461
sub build_tabs {
Link Here
|
455 |
foreach my $subfield ( keys %{ $tagslib->{$tag} } ) |
455 |
foreach my $subfield ( keys %{ $tagslib->{$tag} } ) |
456 |
{ |
456 |
{ |
457 |
next if ( length $subfield != 1 ); |
457 |
next if ( length $subfield != 1 ); |
458 |
next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop ); |
458 |
next if ( defined $tagslib->{$tag}->{$subfield}->{tab} and |
|
|
459 |
$tagslib->{$tag}->{$subfield}->{tab} ne $tabloop ); |
459 |
next if ( $tag < 10 ); |
460 |
next if ( $tag < 10 ); |
460 |
next |
461 |
next |
461 |
if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -4 ) |
462 |
if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -4 ) |
462 |
- |
|
|