--- trunk/lib/WebPAC/Input/TSV.pm	2010/10/16 17:38:47	1343
+++ trunk/lib/WebPAC/Input/TSV.pm	2010/10/16 17:47:25	1346
@@ -48,7 +48,10 @@
 		$rec->{'000'} = [ ++$self->{size} ];
 
 		my $col = 'A';
-		$rec->{ $col++ } = Encode::decode_utf8( $_ ) foreach split(/\t/,$line);
+		foreach my $v ( split(/\t/,$line) ) {
+			next if $v eq '\N';
+			$rec->{ $col++ } = Encode::decode_utf8( $v );
+		}
 
 		push @{ $self->{_rec} }, $rec;