--- trunk/tools/mods2unimarc.pl	2004/05/15 20:54:40	329
+++ trunk/tools/mods2unimarc.pl	2004/05/16 22:12:02	330
@@ -262,10 +262,22 @@
 			if ($related eq "series") {
 				marc_add_rep($m_cache,'225','a',$ri->{titleInfo}->{title});
 				foreach my $pn (@{$ri->{titleInfo}->{partNumber}}) {
-					marc_add_rep($m_cache,'999','a',$pn);
+					if ($journal) {
+						marc_add_rep($m_cache,'999','a',$pn);
+					} else {
+						marc_add_rep($m_cache,'225','v',$pn);
+					}
 				}
 			} elsif ($related eq "preceding") {
-				marc_add_rep($m_cache,'430','a',$ri->{titleInfo}->{title});
+				marc_add($m_cache,'520','a',$ri->{titleInfo}->{title});
+				if ($ri->{identifier}) {
+					if ($ri->{identifier}->{type} eq "issn") {
+						marc_add($m_cache,'520','x',$ri->{identifier}->{content});
+					} else {
+						die "can't store identifier type $type";
+					}
+				}
+				marc_rep($m_cache,'520');
 			} else {
 				die "can't parse related item type $related" if ($related);
 			}