Lines 72-87
if ( $op eq "do_search" ) {
Link Here
|
72 |
$resultsperpage, $authtypecode, $orderby); |
72 |
$resultsperpage, $authtypecode, $orderby); |
73 |
|
73 |
|
74 |
# If an authority heading is repeated, add an arrayref to those repetions |
74 |
# If an authority heading is repeated, add an arrayref to those repetions |
75 |
# First heading -- Second heading |
|
|
76 |
for my $heading ( @$results ) { |
75 |
for my $heading ( @$results ) { |
77 |
my @repets = split / -- /, $heading->{summary}; |
76 |
my $record = GetAuthority($heading->{'authid'}); |
78 |
if ( @repets > 1 ) { |
77 |
my $auth_name = ''; # will be displayed in the link tooltip |
79 |
my @repets_loop; |
78 |
my $cpt = 0; |
80 |
for (my $i = 0; $i < @repets; $i++) { |
79 |
my @repets_loop; |
81 |
push @repets_loop, |
80 |
foreach my $field ($record->field('200')) { |
82 |
{ index => $index, repet => $i+1, value => $repets[$i] }; |
81 |
$auth_name = $field->subfield('a'); |
83 |
} |
82 |
if ($field->subfield('b')) { $auth_name .= ', ' . $field->subfield('b') } |
84 |
$heading->{repets} = \@repets_loop; |
83 |
$cpt++; |
|
|
84 |
push @repets_loop, |
85 |
{ index => $index, repet => $cpt, value => $auth_name }; |
86 |
} |
87 |
if ( $cpt < 2 ) { |
88 |
undef @repets_loop; |
89 |
} |
90 |
else { |
91 |
$heading->{repets} = \@repets_loop |
85 |
} |
92 |
} |
86 |
} |
93 |
} |
87 |
# multi page display gestion |
94 |
# multi page display gestion |
88 |
- |
|
|