|
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 }; |