|
Lines 1675-1684
sub GetMarcSubjects {
Link Here
|
| 1675 |
if ( $counter != 0 ) { |
1675 |
if ( $counter != 0 ) { |
| 1676 |
$operator = ' and '; |
1676 |
$operator = ' and '; |
| 1677 |
} |
1677 |
} |
| 1678 |
if ( $code eq 9 ) { |
1678 |
if ( $code eq 9 and $linkvalue ne " 0 ") { |
| 1679 |
$found9 = 1; |
1679 |
$found9 = 1; |
| 1680 |
@link_loop = ( { 'limit' => 'an', link => "$linkvalue" } ); |
1680 |
@link_loop = ( { 'limit' => 'an', link => "$linkvalue" } ); |
| 1681 |
} |
1681 |
} |
|
|
1682 |
if ( $code eq 9 and $linkvalue eq " 0 ") { |
| 1683 |
next; |
| 1684 |
} |
| 1682 |
if ( not $found9 ) { |
1685 |
if ( not $found9 ) { |
| 1683 |
push @link_loop, { 'limit' => $subject_limit, link => $linkvalue, operator => $operator }; |
1686 |
push @link_loop, { 'limit' => $subject_limit, link => $linkvalue, operator => $operator }; |
| 1684 |
} |
1687 |
} |
|
Lines 1734-1740
sub GetMarcAuthors {
Link Here
|
| 1734 |
my $count_auth = 0; |
1737 |
my $count_auth = 0; |
| 1735 |
|
1738 |
|
| 1736 |
# if there is an authority link, build the link with Koha-Auth-Number: subfield9 |
1739 |
# if there is an authority link, build the link with Koha-Auth-Number: subfield9 |
| 1737 |
my $subfield9 = $field->subfield('9'); |
1740 |
my $found9 ; |
| 1738 |
for my $authors_subfield (@subfields) { |
1741 |
for my $authors_subfield (@subfields) { |
| 1739 |
|
1742 |
|
| 1740 |
# don't load unimarc subfields 3, 5 |
1743 |
# don't load unimarc subfields 3, 5 |
|
Lines 1749-1757
sub GetMarcAuthors {
Link Here
|
| 1749 |
} |
1752 |
} |
| 1750 |
|
1753 |
|
| 1751 |
# if we have an authority link, use that as the link, otherwise use standard searching |
1754 |
# if we have an authority link, use that as the link, otherwise use standard searching |
| 1752 |
if ($subfield9) { |
1755 |
if ( $subfieldcode eq 9 and $linkvalue ne " 0 ") { |
| 1753 |
@link_loop = ( { 'limit' => 'an', link => "$subfield9" } ); |
1756 |
$found9 = 1; |
| 1754 |
} else { |
1757 |
@link_loop = ( { 'limit' => 'an', link => "$linkvalue" } ); |
|
|
1758 |
} |
| 1759 |
if ( not $found9 ) { |
| 1760 |
push @link_loop, { 'limit' => 'au', link => $linkvalue, operator => $operator }; |
| 1761 |
} |
| 1762 |
unless ($found9){ |
| 1755 |
|
1763 |
|
| 1756 |
# reset $linkvalue if UNIMARC author responsibility |
1764 |
# reset $linkvalue if UNIMARC author responsibility |
| 1757 |
if ( $marcflavour eq 'UNIMARC' and ( $authors_subfield->[0] eq "4" ) ) { |
1765 |
if ( $marcflavour eq 'UNIMARC' and ( $authors_subfield->[0] eq "4" ) ) { |