[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.2, Tue Jan 25 01:00:20 2005 UTC revision 1.3, Wed Jan 26 22:26:09 2005 UTC
# Line 1031  Line 1031 
1031              print TABLEOUT "$record\n";              print TABLEOUT "$record\n";
1032              # Count the record read.              # Count the record read.
1033              my $count = $retVal->Add('records');              my $count = $retVal->Add('records');
1034                my $len = length $record;
1035                Trace("Record $count written with $len characters.") if T(4);
1036          }          }
1037          }          }
1038          # Close the files.          # Close the files.
1039          close TABLEIN;          close TABLEIN;
1040          close TABLEOUT;          close TABLEOUT;
1041        Trace("Temporary file $tempName created.") if T(4);
1042          # Load the table.          # Load the table.
1043          my $rv;          my $rv;
1044          eval {          eval {
1045                  $rv = $dbh->load_table(file => $tempName, tbl => $relationName);                  $rv = $dbh->load_table(file => $tempName, tbl => $relationName);
1046          };          };
1047          if (!defined $rv) {          if (!defined $rv) {
1048                  $retVal->AddMessage("Table load failed for $relationName.");          $retVal->AddMessage($@) if ($@);
1049            $retVal->AddMessage("Table load failed for $relationName using $tempName.");
1050                  Trace("Table load failed for $relationName.") if T(1);                  Trace("Table load failed for $relationName.") if T(1);
1051          } else {          } else {
1052                  # Here we successfully loaded the table. Trace the number of records loaded.                  # Here we successfully loaded the table. Trace the number of records loaded.

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3