Lines 172-183
for ( my $tabloop = 0 ; $tabloop <= 9 ; $tabloop++ ) {
Link Here
|
172 |
# loop through each subfield |
172 |
# loop through each subfield |
173 |
for my $i ( 0 .. $#subf ) { |
173 |
for my $i ( 0 .. $#subf ) { |
174 |
$subf[$i][0] = "@" unless defined($subf[$i][0]); |
174 |
$subf[$i][0] = "@" unless defined($subf[$i][0]); |
175 |
my $sf_def = $tagslib->{ $fields[$x_i]->tag() }->{ $subf[$i][0] }; |
175 |
my $sf_def = $tagslib->{ $fields[$x_i]->tag() }; |
176 |
next if ( ($sf_def->{tab}||0) != $tabloop ); |
176 |
$sf_def = $sf_def->{ $subf[$i][0] } if defined($sf_def); |
177 |
next if ( ($sf_def->{hidden}||0) > 0 ); |
177 |
my ($tab,$hidden); |
|
|
178 |
$tab = $sf_def->{tab} if defined($sf_def); |
179 |
$tab = $tab // int($fields[$x_i]->tag()/100); |
180 |
$hidden = $sf_def->{hidden} if defined($sf_def); |
181 |
$hidden = $hidden // 0; |
182 |
next if ( $tab != $tabloop ); |
183 |
next if ( $hidden > 0 ); |
178 |
my %subfield_data; |
184 |
my %subfield_data; |
179 |
$subfield_data{marc_lib} = ($sf_def->{lib} eq $previous) ? '--' : $sf_def->{lib}; |
185 |
my $lib = $sf_def->{lib} // ''; |
180 |
$previous = $sf_def->{lib}; |
186 |
$subfield_data{marc_lib} = ($lib eq $previous) ? '--' : $sf_def->{lib}; |
|
|
187 |
$previous = $lib; |
181 |
$subfield_data{link} = $sf_def->{link}; |
188 |
$subfield_data{link} = $sf_def->{link}; |
182 |
$subf[$i][1] =~ s/\n/<br\/>/g; |
189 |
$subf[$i][1] =~ s/\n/<br\/>/g; |
183 |
if ( $sf_def->{isurl} ) { |
190 |
if ( $sf_def->{isurl} ) { |
Lines 211-222
for ( my $tabloop = 0 ; $tabloop <= 9 ; $tabloop++ ) {
Link Here
|
211 |
$tag_data{tag} = $tagslib->{ $fields[$x_i]->tag() }->{lib}; |
218 |
$tag_data{tag} = $tagslib->{ $fields[$x_i]->tag() }->{lib}; |
212 |
} |
219 |
} |
213 |
else { |
220 |
else { |
214 |
$tag_data{tag} = |
221 |
my $sf_def = $tagslib->{ $fields[$x_i]->tag() }; |
215 |
$fields[$x_i]->tag() |
222 |
my $lib; |
216 |
. ' ' |
223 |
$lib = $sf_def->{lib} if defined($sf_def); |
|
|
224 |
$lib = $lib // ''; |
225 |
$tag_data{tag} = $fields[$x_i]->tag() . ' ' |
217 |
. C4::Koha::display_marc_indicators($fields[$x_i]) |
226 |
. C4::Koha::display_marc_indicators($fields[$x_i]) |
218 |
. ' - ' |
227 |
. " - $lib"; |
219 |
. $tagslib->{ $fields[$x_i]->tag() }->{lib}; |
|
|
220 |
} |
228 |
} |
221 |
} |
229 |
} |
222 |
my @tmp = @subfields_data; |
230 |
my @tmp = @subfields_data; |
223 |
- |
|
|