231 |
if ($t =~ m/([^:]+):\s+(.+)$/) { |
if ($t =~ m/([^:]+):\s+(.+)$/) { |
232 |
$tmp->{$1} = $2; |
$tmp->{$1} = $2; |
233 |
} else { |
} else { |
234 |
die "can't parse $t"; |
print STDERR "can't parse '$t' in ",Dumper($phy_desc); |
235 |
} |
} |
236 |
} |
} |
237 |
my $data = $tmp->{pagin}; |
my $data = $tmp->{pagin}; |
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 |
} |
} |
286 |
|
|
287 |
marc_add_single($m_cache,'205','a',$ref->{originInfo}->{edition}); |
marc_add_single($m_cache,'205','a',$ref->{originInfo}->{edition}); |
288 |
|
|
289 |
|
marc_add($m_cache,'210','a',$ref->{originInfo}->{place}); |
290 |
|
|
291 |
my $publisher = $ref->{originInfo}->{publisher}; |
my $publisher = $ref->{originInfo}->{publisher}; |
292 |
if ($publisher =~ m,^(.+?)\s*/\s*(.+)$,) { |
if ($publisher =~ m,^(.+?)\s*/\s*(.+)$,) { |
293 |
marc_add($m_cache,'210','a', $2); |
marc_add($m_cache,'210','a', $2); |
296 |
marc_add($m_cache,'210','c', $publisher); |
marc_add($m_cache,'210','c', $publisher); |
297 |
} |
} |
298 |
|
|
|
marc_add($m_cache,'210','a',$ref->{originInfo}->{place}); |
|
299 |
marc_add($m_cache,'210','d',$ref->{originInfo}->{dateIssued}); |
marc_add($m_cache,'210','d',$ref->{originInfo}->{dateIssued}); |
300 |
|
|
301 |
marc_single($m_cache,'210'); |
marc_single($m_cache,'210'); |