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 |
- |
|
|