[Bio] / Sprout / BaseSaplingLoader.pm Repository:
ViewVC logotype

Diff of /Sprout/BaseSaplingLoader.pm

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

revision 1.4, Tue Jun 30 19:53:00 2009 UTC revision 1.5, Thu Jun 2 14:04:55 2011 UTC
# Line 169  Line 169 
169          # Get the next input record.          # Get the next input record.
170          my @inFields = Tracer::GetLine($ih);          my @inFields = Tracer::GetLine($ih);
171          $self->Track(FileRecords => $fileName . " line " . ++$count, 1000);          $self->Track(FileRecords => $fileName . " line " . ++$count, 1000);
172            # Insure we have any blank fields truncated from the end.
173            while (scalar(@inFields) <= $#fieldNames) {
174                push @inFields, "";
175            }
176          # Create a map from field names to values.          # Create a map from field names to values.
177          my %map = map { $fieldNames[$_] => $inFields[$_] } 0 .. $#fieldNames;          my %map = map { $fieldNames[$_] => $inFields[$_] } 0 .. $#fieldNames;
178          # Insert it into the table.          # Insert it into the table.

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3