|
Lines 255-266
foreach my $field (@fields) {
Link Here
|
| 255 |
@items2hide) ); |
255 |
@items2hide) ); |
| 256 |
my @subf = $field->subfields; |
256 |
my @subf = $field->subfields; |
| 257 |
my %this_row; |
257 |
my %this_row; |
|
|
258 |
my $hideitem=0; |
| 258 |
|
259 |
|
| 259 |
# loop through each subfield |
260 |
# loop through each subfield |
| 260 |
for my $i ( 0 .. $#subf ) { |
261 |
for my $i ( 0 .. $#subf ) { |
| 261 |
my $sf_def = $tagslib->{ $field->tag() }->{ $subf[$i][0] }; |
262 |
my $sf_def = $tagslib->{ $field->tag() }->{ $subf[$i][0] }; |
|
|
263 |
#warn "subf:$i $sf_def->{kohafield} $sf_def->{lib} $subf[$i][0]"; # see errlog to learn the mappings |
| 262 |
next if ( ($sf_def->{tab}||0) != 10 ); |
264 |
next if ( ($sf_def->{tab}||0) != 10 ); |
| 263 |
next if ( ($sf_def->{hidden}||0) > 0 ); |
265 |
next if ( ($sf_def->{hidden}||0) > 0 ); |
|
|
266 |
( $hideitem=1) if (C4::Context->preference("hidelostitems") && ($sf_def->{kohafield} eq 'items.itemlost') && ($subf[$i][0] > 0) ); |
| 264 |
$witness{ $subf[$i][0] } = $sf_def->{lib}; |
267 |
$witness{ $subf[$i][0] } = $sf_def->{lib}; |
| 265 |
|
268 |
|
| 266 |
if ( $sf_def->{isurl} ) { |
269 |
if ( $sf_def->{isurl} ) { |
|
Lines 274-280
foreach my $field (@fields) {
Link Here
|
| 274 |
$subf[$i][1], '', $tagslib, '', 'opac' ); |
277 |
$subf[$i][1], '', $tagslib, '', 'opac' ); |
| 275 |
} |
278 |
} |
| 276 |
} |
279 |
} |
| 277 |
if (%this_row) { |
280 |
if (%this_row && !$hideitem) { |
| 278 |
push( @big_array, \%this_row ); |
281 |
push( @big_array, \%this_row ); |
| 279 |
} |
282 |
} |
| 280 |
} |
283 |
} |
|
Lines 304-313
for ( my $i = 0 ; $i <= $#big_array ; $i++ ) {
Link Here
|
| 304 |
push( @item_value_loop, \%row_data ); |
307 |
push( @item_value_loop, \%row_data ); |
| 305 |
} |
308 |
} |
| 306 |
|
309 |
|
| 307 |
foreach my $subfield_code ( keys(%witness) ) { |
310 |
|
| 308 |
my %header_value; |
311 |
if (@item_value_loop > 0) { # prevent display of header if no items to display |
| 309 |
$header_value{header_value} = $witness{$subfield_code}; |
312 |
foreach my $subfield_code ( keys(%witness) ) { |
| 310 |
push( @header_value_loop, \%header_value ); |
313 |
my %header_value; |
|
|
314 |
$header_value{header_value} = $witness{$subfield_code}; |
| 315 |
push( @header_value_loop, \%header_value ); |
| 316 |
} |
| 311 |
} |
317 |
} |
| 312 |
|
318 |
|
| 313 |
if(C4::Context->preference("ISBD")) { |
319 |
if(C4::Context->preference("ISBD")) { |
| 314 |
- |
|
|