From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 6 Mar 2014 15:39:59 +0000 (+0100)
Subject: and skip fields without subfileds >= 900
X-Git-Url: http://git.rot13.org/?p=Biblio-Z3950.git;a=commitdiff_plain;h=078bb51075b014c9199443ebb7f206f957884471

and skip fields without subfileds >= 900
---

diff --git a/AlephTR.pm b/AlephTR.pm
index 134c669..be3e110 100644
--- a/AlephTR.pm
+++ b/AlephTR.pm
@@ -148,7 +148,7 @@ warn "## $f\t[$v]\n";
 			}
 
 			if ( $v !~ s/^\|// ) { # no subfields
-				$marc->add_fields( $f, $v );
+				$marc->add_fields( $f, $v ) unless $f >= 900;
 warn "## ++ ", dump( $f, $v );
 				return;
 			}