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

Diff of /FigKernelPackages/UnvSubsys.pm

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

revision 1.9, Wed Sep 21 16:32:42 2005 UTC revision 1.10, Tue Sep 27 00:58:27 2005 UTC
# Line 193  Line 193 
193      {      {
194          ($id,$members) = @$pair;          ($id,$members) = @$pair;
195          my @mem = grep { defined($_) } map { $genomeH->{$_} } @$members;          my @mem = grep { defined($_) } map { $genomeH->{$_} } @$members;
         if (@mem > 10)  
         {  
             push(@$subsets,[$id,[@mem]]);  
         }  
     }  
     if (@$subsets == 0)  
     {  
         foreach $pair (@$taxonomic_groups)  
         {  
             ($id,$members) = @$pair;  
             my @mem = grep { defined($_) } map { $genomeH->{$_} } @$members;  
196              if (@mem > 0)              if (@mem > 0)
197              {              {
198                  push(@$subsets,[$id,[@mem]]);                  push(@$subsets,[$id,[@mem]]);
199              }              }
200          }          }
     }  
201      return $subsets;      return $subsets;
202  }  }
203    
# Line 242  Line 230 
230      my($genomeI,$roleI,$pegs,$peg,$roleH,$peg,%pegs_in_genome);      my($genomeI,$roleI,$pegs,$peg,$roleH,$peg,%pegs_in_genome);
231    
232      my $colorsH = {};      my $colorsH = {};
   
233      foreach $genomeI (grep { $active_genomes->{$_} } keys(%$pegH))      foreach $genomeI (grep { $active_genomes->{$_} } keys(%$pegH))
234      {      {
235          undef %pegs_in_genome;          undef %pegs_in_genome;
# Line 259  Line 246 
246          my @pegs = keys(%pegs_in_genome);          my @pegs = keys(%pegs_in_genome);
247          my($tuple,$peg,$color);          my($tuple,$peg,$color);
248          my $colors_for_one_genome = &set_colors_for_genome($fig,\@pegs);          my $colors_for_one_genome = &set_colors_for_genome($fig,\@pegs);
   
249          while (($peg,$color) = each %$colors_for_one_genome)          while (($peg,$color) = each %$colors_for_one_genome)
250          {          {
251              $colorsH->{$peg} = $colors_for_one_genome->{$peg};              $colorsH->{$peg} = $colors_for_one_genome->{$peg};
# Line 502  Line 488 
488          else          else
489          {          {
490              $active_subsetR = 'All';              $active_subsetR = 'All';
491              @bestL = keys(%$genomeH);              @bestL = map { $genomeH->{$_} } keys(%$genomeH);
492          }          }
493      }      }
494      else      else
# Line 510  Line 496 
496          if (! $focus)          if (! $focus)
497          {          {
498              $active_subsetR = 'All';              $active_subsetR = 'All';
499              @bestL = keys(%$genomeH);              @bestL = map { $genomeH->{$_} } keys(%$genomeH);
500          }          }
501          else          else
502          {          {

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3