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

Diff of /Sprout/SproutLoad.pm

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

revision 1.25, Mon Jan 30 21:52:29 2006 UTC revision 1.26, Mon Jan 30 21:57:02 2006 UTC
# Line 1451  Line 1451 
1451      # Loop through the list, finishing the loads. Note that if the finish fails, we die      # Loop through the list, finishing the loads. Note that if the finish fails, we die
1452      # ignominiously. At some future point, we want to make the loads restartable.      # ignominiously. At some future point, we want to make the loads restartable.
1453      while (my $loader = pop @{$loadList}) {      while (my $loader = pop @{$loadList}) {
1454          # Trace the fact that we're cleaning up.          # Get the relation name.
1455          my $relName = $loader->RelName;          my $relName = $loader->RelName;
1456            # Check the ignore flag.
1457            if ($loader->Ignore) {
1458                Trace("Relation $relName not loaded.") if T(2);
1459            } else {
1460                # Here we really need to finish.
1461          Trace("Finishing $relName.") if T(2);          Trace("Finishing $relName.") if T(2);
1462          my $stats = $loader->Finish();          my $stats = $loader->Finish();
1463          if ($self->{options}->{dbLoad}) {              if ($self->{options}->{dbLoad} && ! $loader->Ignore) {
1464              # Here we want to use the load file just created to load the database.              # Here we want to use the load file just created to load the database.
1465              Trace("Loading relation $relName.") if T(2);              Trace("Loading relation $relName.") if T(2);
1466              my $newStats = $self->{sprout}->LoadUpdate(1, [$relName]);              my $newStats = $self->{sprout}->LoadUpdate(1, [$relName]);
# Line 1465  Line 1470 
1470          $retVal->Accumulate($stats);          $retVal->Accumulate($stats);
1471          Trace("Statistics for $relName:\n" . $stats->Show()) if T(2);          Trace("Statistics for $relName:\n" . $stats->Show()) if T(2);
1472      }      }
1473        }
1474      # Return the load statistics.      # Return the load statistics.
1475      return $retVal;      return $retVal;
1476  }  }

Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3