|
Lines 404-409
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 |
push( |
408 |
push( |
| 408 |
@subfields_data, |
409 |
@subfields_data, |
| 409 |
&create_input( |
410 |
&create_input( |
|
Lines 419-424
sub build_tabs {
Link Here
|
| 419 |
my $value = $subfields[$subfieldcount][1]; |
420 |
my $value = $subfields[$subfieldcount][1]; |
| 420 |
next if ( length $subfield != 1 ); |
421 |
next if ( length $subfield != 1 ); |
| 421 |
next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop ); |
422 |
next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop ); |
|
|
423 |
next if $tagslib->{$tag}->{$subfield}->{hidden}; |
| 422 |
push( |
424 |
push( |
| 423 |
@subfields_data, |
425 |
@subfields_data, |
| 424 |
&create_input( |
426 |
&create_input( |
|
Lines 435-444
sub build_tabs {
Link Here
|
| 435 |
next if ( length $subfield != 1 ); |
437 |
next if ( length $subfield != 1 ); |
| 436 |
next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop ); |
438 |
next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop ); |
| 437 |
next if ( $tag < 10 ); |
439 |
next if ( $tag < 10 ); |
| 438 |
next |
440 |
next if $tagslib->{$tag}->{$subfield}->{hidden}; |
| 439 |
if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -4 ) |
|
|
| 440 |
or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 5 ) |
| 441 |
); #check for visibility flag |
| 442 |
next if ( defined( $field->subfield($subfield) ) ); |
441 |
next if ( defined( $field->subfield($subfield) ) ); |
| 443 |
push( |
442 |
push( |
| 444 |
@subfields_data, |
443 |
@subfields_data, |
|
Lines 477-485
sub build_tabs {
Link Here
|
| 477 |
my @subfields_data; |
476 |
my @subfields_data; |
| 478 |
foreach my $subfield ( sort( keys %{ $tagslib->{$tag} } ) ) { |
477 |
foreach my $subfield ( sort( keys %{ $tagslib->{$tag} } ) ) { |
| 479 |
next if ( length $subfield != 1 ); |
478 |
next if ( length $subfield != 1 ); |
| 480 |
next if ( ( $tagslib->{$tag}->{$subfield}->{hidden} <= -5 ) |
479 |
next if $tagslib->{$tag}->{$subfield}->{hidden}; |
| 481 |
or ( $tagslib->{$tag}->{$subfield}->{hidden} >= 4 ) ) |
|
|
| 482 |
; #check for visibility flag |
| 483 |
next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop ); |
480 |
next if ( $tagslib->{$tag}->{$subfield}->{tab} ne $tabloop ); |
| 484 |
push( |
481 |
push( |
| 485 |
@subfields_data, |
482 |
@subfields_data, |
| 486 |
- |
|
|