[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.26, Mon Jan 30 21:57:02 2006 UTC revision 1.29, Mon Mar 13 19:19:37 2006 UTC
# Line 250  Line 250 
250              $loadGenome->Add("genomeIn");              $loadGenome->Add("genomeIn");
251              # The access code comes in via the genome hash.              # The access code comes in via the genome hash.
252              my $accessCode = $genomeHash->{$genomeID};              my $accessCode = $genomeHash->{$genomeID};
253              # Get the genus, species, and strain from the scientific name. Note that we append              # Get the genus, species, and strain from the scientific name.
             # the genome ID to the strain. In some cases this is the totality of the strain name.  
254              my ($genus, $species, @extraData) = split / /, $self->{fig}->genus_species($genomeID);              my ($genus, $species, @extraData) = split / /, $self->{fig}->genus_species($genomeID);
255              my $extra = join " ", @extraData, "[$genomeID]";              my $extra = join " ", @extraData;
256              # Get the full taxonomy.              # Get the full taxonomy.
257              my $taxonomy = $fig->taxonomy_of($genomeID);              my $taxonomy = $fig->taxonomy_of($genomeID);
258              # Output the genome record.              # Output the genome record.
# Line 801  Line 800 
800                  # Connect the subset to the subsystem.                  # Connect the subset to the subsystem.
801                  $loadHasRoleSubset->Put($subsysID, $actualID);                  $loadHasRoleSubset->Put($subsysID, $actualID);
802                  # Connect the subset to its roles.                  # Connect the subset to its roles.
803                  my @roles = $sub->get_subset($subsetID);                  my @roles = $sub->get_subsetC_roles($subsetID);
804                  for my $roleID (@roles) {                  for my $roleID (@roles) {
805                      $loadConsistsOfRoles->Put($actualID, $roleID);                      $loadConsistsOfRoles->Put($actualID, $roleID);
806                  }                  }
# Line 1460  Line 1459 
1459              # Here we really need to finish.              # Here we really need to finish.
1460              Trace("Finishing $relName.") if T(2);              Trace("Finishing $relName.") if T(2);
1461              my $stats = $loader->Finish();              my $stats = $loader->Finish();
1462              if ($self->{options}->{dbLoad} && ! $loader->Ignore) {              if ($self->{options}->{dbLoad}) {
1463                  # 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.
1464                  Trace("Loading relation $relName.") if T(2);                  Trace("Loading relation $relName.") if T(2);
1465                  my $newStats = $self->{sprout}->LoadUpdate(1, [$relName]);                  my $newStats = $self->{sprout}->LoadUpdate(1, [$relName]);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3