/[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 329 by dpavlin, Sat May 15 20:54:40 2004 UTC revision 330 by dpavlin, Sun May 16 22:12:02 2004 UTC
# 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                          }                          }

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

  ViewVC Help
Powered by ViewVC 1.1.26