Lines 183-192
for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
Link Here
|
183 |
# loop through each subfield |
183 |
# loop through each subfield |
184 |
for my $i ( 0 .. $#subf ) { |
184 |
for my $i ( 0 .. $#subf ) { |
185 |
$subf[$i][0] = "@" unless defined $subf[$i][0]; |
185 |
$subf[$i][0] = "@" unless defined $subf[$i][0]; |
186 |
next |
186 |
next if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{tab} // q{} ) ne $tabloop; # Note: defaulting to '0' changes behavior! |
187 |
if ( |
|
|
188 |
$tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }->{tab} |
189 |
ne $tabloop ); |
190 |
next |
187 |
next |
191 |
if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] } |
188 |
if ( $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] } |
192 |
->{hidden} =~ /-7|-4|-3|-2|2|3|5|8/); |
189 |
->{hidden} =~ /-7|-4|-3|-2|2|3|5|8/); |
193 |
- |
|
|