Lines 150-156
for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
Link Here
|
150 |
push( @subfields_data, \%subfield_data ); |
150 |
push( @subfields_data, \%subfield_data ); |
151 |
my %tag_data; |
151 |
my %tag_data; |
152 |
$tag_data{tag} = '000'; |
152 |
$tag_data{tag} = '000'; |
153 |
$tag_data{tag_desc} = $tagslib->{'000'}->{lib}; |
153 |
$tag_data{tag_desc} = $tagslib->{'000'}->{lib}; |
154 |
my @tmp = @subfields_data; |
154 |
my @tmp = @subfields_data; |
155 |
$tag_data{subfield} = \@tmp; |
155 |
$tag_data{subfield} = \@tmp; |
156 |
push( @loop_data, \%tag_data ); |
156 |
push( @loop_data, \%tag_data ); |
Lines 238-245
for ( my $tabloop = 0 ; $tabloop <= 10 ; $tabloop++ ) {
Link Here
|
238 |
} |
238 |
} |
239 |
else { |
239 |
else { |
240 |
$tag_data{tag} = $fields[$x_i]->tag(); |
240 |
$tag_data{tag} = $fields[$x_i]->tag(); |
241 |
$tag_data{tag_ind} = C4::Koha::display_marc_indicators($fields[$x_i]); |
241 |
$tag_data{tag_ind} = C4::Koha::display_marc_indicators($fields[$x_i]); |
242 |
$tag_data{tag_desc} = $tagslib->{ $fields[$x_i]->tag() }->{lib}; |
242 |
$tag_data{tag_desc} = $tagslib->{ $fields[$x_i]->tag() }->{lib}; |
243 |
} |
243 |
} |
244 |
} |
244 |
} |
245 |
my @tmp = @subfields_data; |
245 |
my @tmp = @subfields_data; |