262 |
if ($related eq "series") { |
if ($related eq "series") { |
263 |
marc_add_rep($m_cache,'225','a',$ri->{titleInfo}->{title}); |
marc_add_rep($m_cache,'225','a',$ri->{titleInfo}->{title}); |
264 |
foreach my $pn (@{$ri->{titleInfo}->{partNumber}}) { |
foreach my $pn (@{$ri->{titleInfo}->{partNumber}}) { |
265 |
marc_add_rep($m_cache,'999','a',$pn); |
if ($journal) { |
266 |
|
marc_add_rep($m_cache,'999','a',$pn); |
267 |
|
} else { |
268 |
|
marc_add_rep($m_cache,'225','v',$pn); |
269 |
|
} |
270 |
} |
} |
271 |
} elsif ($related eq "preceding") { |
} elsif ($related eq "preceding") { |
272 |
marc_add_rep($m_cache,'430','a',$ri->{titleInfo}->{title}); |
marc_add($m_cache,'520','a',$ri->{titleInfo}->{title}); |
273 |
|
if ($ri->{identifier}) { |
274 |
|
if ($ri->{identifier}->{type} eq "issn") { |
275 |
|
marc_add($m_cache,'520','x',$ri->{identifier}->{content}); |
276 |
|
} else { |
277 |
|
die "can't store identifier type $type"; |
278 |
|
} |
279 |
|
} |
280 |
|
marc_rep($m_cache,'520'); |
281 |
} else { |
} else { |
282 |
die "can't parse related item type $related" if ($related); |
die "can't parse related item type $related" if ($related); |
283 |
} |
} |