Lines 139-154
sub build_tabs {
Link Here
|
139 |
} |
139 |
} |
140 |
if ($#subfields_data>=0) { |
140 |
if ($#subfields_data>=0) { |
141 |
my %tag_data; |
141 |
my %tag_data; |
142 |
$tag_data{tag}=$field->tag(). ' ' |
|
|
143 |
. C4::Koha::display_marc_indicators($field) |
144 |
. ' - ' |
145 |
. $tagslib->{$field->tag()}->{lib}; |
146 |
$tag_data{tag_number} = $tag; |
142 |
$tag_data{tag_number} = $tag; |
147 |
$tag_data{tag_desc} = $tagslib->{$field->tag()}->{lib}; |
143 |
$tag_data{tag_desc} = $tagslib->{$field->tag()}->{lib}; |
148 |
$tag_data{subfield} = \@subfields_data; |
144 |
$tag_data{subfield} = \@subfields_data; |
149 |
if ($tag >= 10){ # no indicator for theses tag |
145 |
my $indicators = C4::Koha::display_marc_indicators($field); |
150 |
$tag_data{ind1} = $field->indicator(1); |
146 |
if ( $indicators ) { |
151 |
$tag_data{ind2} = $field->indicator(2); |
147 |
$tag_data{ind1} = substr $indicators, 0, 1; |
|
|
148 |
$tag_data{ind2} = substr $indicators, 1, 1; |
152 |
} |
149 |
} |
153 |
|
150 |
|
154 |
push (@loop_data, \%tag_data); |
151 |
push (@loop_data, \%tag_data); |