/[webpac]/trunk/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 /trunk/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 329 by dpavlin, Sat May 15 20:54:40 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 274  sub mods { Line 274  sub mods {
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);
# Line 282  sub mods { Line 284  sub mods {
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');

Legend:
Removed from v.328  
changed lines
  Added in v.329

  ViewVC Help
Powered by ViewVC 1.1.26