/[webpac]/trunk2/tools/mods2unimarc.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk2/tools/mods2unimarc.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 328 by dpavlin, Sat May 15 19:52:01 2004 UTC revision 330 by dpavlin, Sun May 16 22:12:02 2004 UTC
# Line 231  sub mods { Line 231  sub mods {
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};
# Line 262  sub mods { Line 262  sub mods {
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                          }                          }
# Line 274  sub mods { Line 286  sub mods {
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);
# Line 282  sub mods { Line 296  sub mods {
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');
Legend:
Removed from v.328  
changed lines
  Added in v.330
  ViewVC Help
Powered by ViewVC 1.1.26