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