|
Lines 496-511
sub build_tabs {
Link Here
|
| 496 |
my @BIG_LOOP; |
496 |
my @BIG_LOOP; |
| 497 |
my %seen; |
497 |
my %seen; |
| 498 |
my @tab_data; # all tags to display |
498 |
my @tab_data; # all tags to display |
| 499 |
|
499 |
|
|
|
500 |
my $max_num_tab=-1; |
| 501 |
my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField( "items.itemnumber", scalar $input->param('frameworkcode') ); |
| 500 |
foreach my $used ( @$usedTagsLib ){ |
502 |
foreach my $used ( @$usedTagsLib ){ |
|
|
503 |
|
| 501 |
push @tab_data,$used->{tagfield} if not $seen{$used->{tagfield}}; |
504 |
push @tab_data,$used->{tagfield} if not $seen{$used->{tagfield}}; |
| 502 |
$seen{$used->{tagfield}}++; |
505 |
$seen{$used->{tagfield}}++; |
| 503 |
} |
506 |
|
| 504 |
|
507 |
if ( $used->{tab} > -1 |
| 505 |
my $max_num_tab=-1; |
508 |
&& $used->{tab} >= $max_num_tab |
| 506 |
foreach(@$usedTagsLib){ |
509 |
&& $used->{tagfield} ne $itemtag ) |
| 507 |
if($_->{tab} > -1 && $_->{tab} >= $max_num_tab && $_->{tagfield} != '995'){ # FIXME : MARC21 ? |
510 |
{ |
| 508 |
$max_num_tab = $_->{tab}; |
511 |
$max_num_tab = $used->{tab}; |
| 509 |
} |
512 |
} |
| 510 |
} |
513 |
} |
| 511 |
if($max_num_tab >= 9){ |
514 |
if($max_num_tab >= 9){ |
| 512 |
- |
|
|