/[webpac2]/trunk/lib/WebPAC/Input/TSV.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Input/TSV.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1345 by dpavlin, Sat Oct 16 17:38:47 2010 UTC revision 1346 by dpavlin, Sat Oct 16 17:47:25 2010 UTC
# Line 48  sub new { Line 48  sub new {
48                  $rec->{'000'} = [ ++$self->{size} ];                  $rec->{'000'} = [ ++$self->{size} ];
49    
50                  my $col = 'A';                  my $col = 'A';
51                  $rec->{ $col++ } = Encode::decode_utf8( $_ ) foreach split(/\t/,$line);                  foreach my $v ( split(/\t/,$line) ) {
52                            next if $v eq '\N';
53                            $rec->{ $col++ } = Encode::decode_utf8( $v );
54                    }
55    
56                  push @{ $self->{_rec} }, $rec;                  push @{ $self->{_rec} }, $rec;
57    
Legend:
Removed from v.1345  
changed lines
  Added in v.1346
  ViewVC Help
Powered by ViewVC 1.1.26