Lines 142-148
for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
Link Here
|
142 |
for my $i ( 0 .. $#subf ) { |
142 |
for my $i ( 0 .. $#subf ) { |
143 |
$subf[$i][0] = "@" unless $subf[$i][0]; |
143 |
$subf[$i][0] = "@" unless $subf[$i][0]; |
144 |
my $sf_def = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }; |
144 |
my $sf_def = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }; |
145 |
next if ( ($sf_def->{tab}||'') ne $tabloop ); |
145 |
next if ( ($sf_def->{tab}||0) != $tabloop ); |
146 |
next if ( ($sf_def->{hidden}||0) > 0 ); |
146 |
next if ( ($sf_def->{hidden}||0) > 0 ); |
147 |
my %subfield_data; |
147 |
my %subfield_data; |
148 |
$subfield_data{marc_lib} = ($sf_def->{lib} eq $previous) ? '--' : $sf_def->{lib}; |
148 |
$subfield_data{marc_lib} = ($sf_def->{lib} eq $previous) ? '--' : $sf_def->{lib}; |
149 |
- |
|
|