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