Lines 89-106
sub build_tabs {
Link Here
|
89 |
my %seen; |
89 |
my %seen; |
90 |
my @tab_data; # all tags to display |
90 |
my @tab_data; # all tags to display |
91 |
my $max_num_tab=-1; |
91 |
my $max_num_tab=-1; |
|
|
92 |
my ( $itemtag, $itemsubfield ) = GetMarcFromKohaField( "items.itemnumber" ); |
92 |
|
93 |
|
93 |
if (defined $self->{used_tags}) { |
94 |
if (defined $self->{used_tags}) { |
94 |
foreach my $used ( @{$self->{used_tags}} ) { |
95 |
foreach my $used ( @{$self->{used_tags}} ) { |
95 |
push @tab_data,$used->{tagfield} if not $seen{$used->{tagfield}}; |
96 |
push @tab_data,$used->{tagfield} if not $seen{$used->{tagfield}}; |
96 |
$seen{$used->{tagfield}}++; |
97 |
$seen{$used->{tagfield}}++; |
97 |
} |
|
|
98 |
|
98 |
|
99 |
foreach (@{$self->{used_tags}}) { |
99 |
if ( $used->{tab} > -1 |
100 |
if($_->{tab} > -1 && $_->{tab} >= $max_num_tab && $_->{tagfield} ne '995'){ # FIXME : MARC21 ? |
100 |
&& $used->{tab} >= $max_num_tab |
101 |
$max_num_tab = $_->{tab}; |
101 |
&& $used->{tagfield} ne $itemtag ) |
|
|
102 |
{ |
103 |
$max_num_tab = $used->{tab}; |
102 |
} |
104 |
} |
103 |
} |
105 |
} |
|
|
106 |
|
104 |
if ($max_num_tab >= 9) { |
107 |
if ($max_num_tab >= 9) { |
105 |
$max_num_tab = 9; |
108 |
$max_num_tab = 9; |
106 |
} |
109 |
} |
107 |
- |
|
|