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