diff --git a/C4/Biblio.pm b/C4/Biblio.pm index 7a59204850..73f44dcbf3 100644 --- a/C4/Biblio.pm +++ b/C4/Biblio.pm @@ -1821,6 +1821,8 @@ sub GetMarcSubjects { my @subfields = $field->subfields(); my $counter = 0; my @link_loop; + # if there is an authority link, build the link with an= subfield9 + my $subfield9 = $field->subfield('9'); for my $subject_subfield (@subfields ) { # don't load unimarc subfields 3,4,5 next if (($marcflavour eq "UNIMARC") and ($subject_subfield->[0] =~ (3|4|5) ) ); @@ -1829,7 +1831,11 @@ sub GetMarcSubjects { my $linkvalue = $value; $linkvalue =~ s/(\(|\))//g; my $operator = " and " unless $counter==0; - push @link_loop, {link => $linkvalue, operator => $operator }; + if ($subfield9) { + @link_loop = ({'limit' => 'an' ,link => "$subfield9" }); + } else { + push @link_loop, {'limit' => 'su', link => $linkvalue, operator => $operator }; + } my $separator = C4::Context->preference("authoritysep") unless $counter==0; # ignore $9 push @subfields_loop, {code => $code, value => $value, link_loop => \@link_loop, separator => $separator} unless ($subject_subfield->[0] == 9 ); diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tmpl index c6eea2bf5d..7aafc0b0ee 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tmpl @@ -91,7 +91,7 @@