ignore \N fields (NULL)

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1346 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Input/TSV.pm b/lib/WebPAC/Input/TSV.pm
index ef6e375..4871fb8 100644 (file)
--- a/lib/WebPAC/Input/TSV.pm
+++ b/lib/WebPAC/Input/TSV.pm
@@ -48,7 +48,10 @@ sub new {
                $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;