Lines 2074-2083
sub GetMarcSeries {
Link Here
|
2074 |
my @subfields = $field->subfields(); |
2074 |
my @subfields = $field->subfields(); |
2075 |
my @link_loop; |
2075 |
my @link_loop; |
2076 |
|
2076 |
|
|
|
2077 |
# if there is an authority link, build the links with an= subfield9 |
2078 |
my $subfield9 = $field->subfield('9'); |
2079 |
if ($subfield9) { |
2080 |
my $linkvalue = $subfield9; |
2081 |
$linkvalue =~ s/(\(|\))//g; |
2082 |
@link_loop = ( { limit => 'an', 'link' => $linkvalue } ); |
2083 |
} |
2084 |
|
2077 |
for my $series_subfield (@subfields) { |
2085 |
for my $series_subfield (@subfields) { |
2078 |
|
2086 |
|
2079 |
# ignore $9, used for authority link |
2087 |
# ignore $9, used for authority link |
2080 |
next if ( $series_subfield->[0] eq '9' ); |
2088 |
next if ( $series_subfield->[0] eq '9' ); |
|
|
2089 |
next if ( $series_subfield->[0] eq '3' && $marcflavour eq "UNIMARC" ); |
2081 |
|
2090 |
|
2082 |
my $volume_number; |
2091 |
my $volume_number; |
2083 |
my $code = $series_subfield->[0]; |
2092 |
my $code = $series_subfield->[0]; |
Lines 2090-2099
sub GetMarcSeries {
Link Here
|
2090 |
$volume_number = 1; |
2099 |
$volume_number = 1; |
2091 |
} |
2100 |
} |
2092 |
|
2101 |
|
2093 |
push @link_loop, { |
2102 |
unless ($subfield9) { |
2094 |
'link' => $linkvalue, |
2103 |
push @link_loop, { |
2095 |
operator => (scalar @link_loop) ? ' and ' : undef |
2104 |
limit => 'se', |
2096 |
}; |
2105 |
'link' => $linkvalue, |
|
|
2106 |
operator => (scalar @link_loop) ? ' and ' : undef |
2107 |
}; |
2108 |
} |
2097 |
|
2109 |
|
2098 |
if ($volume_number) { |
2110 |
if ($volume_number) { |
2099 |
push @subfields_loop, { volumenum => $value }; |
2111 |
push @subfields_loop, { volumenum => $value }; |