[Bio] / FigKernelPackages / Subsystem.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.140, Mon Nov 3 18:18:59 2008 UTC revision 1.141, Tue Nov 11 13:41:27 2008 UTC
# Line 1043  Line 1043 
1043      $/ = "\n";      $/ = "\n";
1044    
1045      $self->load_row_subsets();      $self->load_row_subsets();
1046    
1047      $self->load_genomes($ssa);      $self->load_genomes($ssa);
1048    
1049      # now load the empty cell information      # now load the empty cell information
# Line 1472  Line 1473 
1473      $self->{variant_code} = [];      $self->{variant_code} = [];
1474      $self->{peg_roles} = {};      $self->{peg_roles} = {};
1475    
1476        # cache the genome list to reduce the number of sql queries
1477        my %all_genomes = map { $_ => 1 } $self->{fig}->genomes;
1478    
1479      my $nr = @{$self->{roles}};      my $nr = @{$self->{roles}};
1480    
1481      my $i = 0;      my $i = 0;
# Line 1482  Line 1486 
1486    
1487          my($genome, $variant_code, @row) = split(/\t/, $_, $nr + 2);          my($genome, $variant_code, @row) = split(/\t/, $_, $nr + 2);
1488          $variant_code =~ s/ //g;          $variant_code =~ s/ //g;
1489          next if ($seen{$genome} || (($genome =~ /^(\d+\.\d+)/) && (! $self->{fig}->is_genome($1))));          next if ($seen{$genome} || (($genome =~ /^(\d+\.\d+)/) && (! $all_genomes{$1})));
1490          $seen{$genome}++;          $seen{$genome}++;
1491    
1492          $genome =~ /^(\d+\.\d+)/;          $genome =~ /^(\d+\.\d+)/;

Legend:
Removed from v.1.140  
changed lines
  Added in v.1.141

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3