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

Diff of /Sprout/ERDB.pm

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

revision 1.1, Sun Jan 23 16:12:29 2005 UTC revision 1.2, Tue Jan 25 01:00:20 2005 UTC
# Line 1016  Line 1016 
1016                  # Chop off the new-line character.                  # Chop off the new-line character.
1017                  my $record = $_;                  my $record = $_;
1018                  chomp $record;                  chomp $record;
1019            # Only proceed if the record is non-blank.
1020            if ($record) {
1021                  # Escape all the backslashes found in the line.                  # Escape all the backslashes found in the line.
1022                  $record =~ s/\\/\\\\/g;                  $record =~ s/\\/\\\\/g;
1023                # Eliminate any trailing tabs.
1024                chop $record while substr($record, -1) eq "\t";
1025                  # If this is a primary relation, add a 0 for the new-record flag (indicating that                  # If this is a primary relation, add a 0 for the new-record flag (indicating that
1026                  # this record is not new, but part of the original load).                  # this record is not new, but part of the original load).
1027                  if ($primary) {                  if ($primary) {
# Line 1028  Line 1032 
1032                  # Count the record read.                  # Count the record read.
1033                  my $count = $retVal->Add('records');                  my $count = $retVal->Add('records');
1034          }          }
1035            }
1036          # Close the files.          # Close the files.
1037          close TABLEIN;          close TABLEIN;
1038          close TABLEOUT;          close TABLEOUT;

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3