Lines 142-149
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}||'') ne $tabloop ); |
146 |
next if ( $sf_def->{hidden} > 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 |
$previous = $sf_def->{lib}; |
149 |
$previous = $sf_def->{lib}; |
Lines 215-222
foreach my $field (@fields) {
Link Here
|
215 |
# loop through each subfield |
215 |
# loop through each subfield |
216 |
for my $i ( 0 .. $#subf ) { |
216 |
for my $i ( 0 .. $#subf ) { |
217 |
my $sf_def = $tagslib->{ $field->tag() }->{ $subf[$i][0] }; |
217 |
my $sf_def = $tagslib->{ $field->tag() }->{ $subf[$i][0] }; |
218 |
next if ( $sf_def->{tab} ne 10 ); |
218 |
next if ( ($sf_def->{tab}||'') ne '10' ); |
219 |
next if ( $sf_def->{hidden} > 0 ); |
219 |
next if ( ($sf_def->{hidden}||0) > 0 ); |
220 |
$witness{ $subf[$i][0] } = $sf_def->{lib}; |
220 |
$witness{ $subf[$i][0] } = $sf_def->{lib}; |
221 |
|
221 |
|
222 |
if ( $sf_def->{isurl} ) { |
222 |
if ( $sf_def->{isurl} ) { |
Lines 237-243
foreach my $field (@fields) {
Link Here
|
237 |
my ( $holdingbrtagf, $holdingbrtagsubf ) = |
237 |
my ( $holdingbrtagf, $holdingbrtagsubf ) = |
238 |
&GetMarcFromKohaField( "items.holdingbranch", $itemtype ); |
238 |
&GetMarcFromKohaField( "items.holdingbranch", $itemtype ); |
239 |
@big_array = |
239 |
@big_array = |
240 |
sort { $a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf} } @big_array; |
240 |
sort { ($a->{$holdingbrtagsubf}||'') cmp ($b->{$holdingbrtagsubf}||'') } @big_array; |
241 |
|
241 |
|
242 |
#fill big_row with missing datas |
242 |
#fill big_row with missing datas |
243 |
foreach my $subfield_code ( keys(%witness) ) { |
243 |
foreach my $subfield_code ( keys(%witness) ) { |
244 |
- |
|
|