From 76c14b5057d55f04328fa2271828fc3c0421563b Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Thu, 12 Sep 2013 22:27:33 +0200
Subject: [PATCH] control fields don't have idicators or subfields

---
 crolist2marc.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/crolist2marc.pl b/crolist2marc.pl
index 49aa86a..e74069c 100755
--- a/crolist2marc.pl
+++ b/crolist2marc.pl
@@ -116,9 +116,10 @@ foreach my $id ( @ids ) {
 		}
 		foreach my $arr ( @{ $data->{$id}->{$field} } ) {
 			if ( ! $arr ) {
-				print STDERR "SKIPPED $id $field ",dump( $data->{$id}->{$field} ), "\n";
+#				print STDERR "SKIPPED $id $field ",dump( $data->{$id}->{$field} ), "\n";
 				next;
 			}
+			$arr = [ $arr->[3] ] if ( $field < 010 ); # control fields don't have idicators or subfields
 			$rec->add_fields( $field, @$arr );
 		}
 	}
-- 
2.20.1