X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=inline;f=crolist2marc.pl;fp=crolist2marc.pl;h=e74069c0c75b0a64ec1fef427d0d0845307543b0;hb=76c14b5057d55f04328fa2271828fc3c0421563b;hp=49aa86a5d33c4c144b54743e8c0bf13fe54706ca;hpb=11bf190ad5ab79edce6ab03045b87c8e72c8c64d;p=crolist2marc

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