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}; |
274 |
|
|
275 |
marc_add_single($m_cache,'205','a',$ref->{originInfo}->{edition}); |
marc_add_single($m_cache,'205','a',$ref->{originInfo}->{edition}); |
276 |
|
|
277 |
|
marc_add($m_cache,'210','a',$ref->{originInfo}->{place}); |
278 |
|
|
279 |
my $publisher = $ref->{originInfo}->{publisher}; |
my $publisher = $ref->{originInfo}->{publisher}; |
280 |
if ($publisher =~ m,^(.+?)\s*/\s*(.+)$,) { |
if ($publisher =~ m,^(.+?)\s*/\s*(.+)$,) { |
281 |
marc_add($m_cache,'210','a', $2); |
marc_add($m_cache,'210','a', $2); |
284 |
marc_add($m_cache,'210','c', $publisher); |
marc_add($m_cache,'210','c', $publisher); |
285 |
} |
} |
286 |
|
|
|
marc_add($m_cache,'210','a',$ref->{originInfo}->{place}); |
|
287 |
marc_add($m_cache,'210','d',$ref->{originInfo}->{dateIssued}); |
marc_add($m_cache,'210','d',$ref->{originInfo}->{dateIssued}); |
288 |
|
|
289 |
marc_single($m_cache,'210'); |
marc_single($m_cache,'210'); |