From 078bb51075b014c9199443ebb7f206f957884471 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 6 Mar 2014 16:39:59 +0100
Subject: [PATCH] and skip fields without subfileds >= 900

---
 AlephTR.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
 			}
-- 
2.20.1