[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.10, Tue Sep 27 00:58:27 2005 UTC revision 1.11, Wed Sep 28 17:21:54 2005 UTC
# Line 104  Line 104 
104          }          }
105    
106          my $row_subsets    = &row_subsets($fig,$genomeH,$genomes_info);          my $row_subsets    = &row_subsets($fig,$genomeH,$genomes_info);
107          my $active_genomes = &active_genomes($row_subsets,$active_subsetR,$focus,$genomeH,$genomes_info);          my $active_genomes = &active_genomes($fig,$row_subsets,$active_subsetR,$focus,$genomeH,$genomes_info);
108    
109          my $colorsH;          my $colorsH;
110          if ($peg_colors)          if ($peg_colors)
# Line 186  Line 186 
186      my ($fig,$genomeH,$genomes_info) = @_;      my ($fig,$genomeH,$genomes_info) = @_;
187    
188      my $subsets = [];      my $subsets = [];
189      my $taxonomic_groups = $fig->taxonomic_groups_of_complete(10);      my $taxonomic_groups = $fig->taxonomic_groups_of_complete(5);
190    
191      my($pair,$id,$members);      my($pair,$id,$members);
192      foreach $pair (@$taxonomic_groups)      foreach $pair (@$taxonomic_groups)
# Line 474  Line 474 
474  }  }
475    
476  sub active_genomes {  sub active_genomes {
477      my($row_subsets,$active_subsetR,$focus,$genomeH,$genomes_info) = @_;      my($fig,$row_subsets,$active_subsetR,$focus,$genomeH,$genomes_info) = @_;
478      my($i,@bestL);      my($i,@bestL);
479    
480      my $active_genomes = {};      my $active_genomes = {};
481    
482      if ($active_subsetR)      if ($active_subsetR)
483      {      {
484          for ($i=0; ($i < @$row_subsets) && ($row_subsets->[$i]->[0] ne $active_subsetR); $i++) {}          for ($i=0; ($i < @$row_subsets) && ($row_subsets->[$i]->[0] ne $active_subsetR); $i++) {}
# Line 493  Line 494 
494      }      }
495      else      else
496      {      {
497          if (! $focus)          if ((! $focus) || (! $fig->is_complete($focus)))
498          {          {
499              $active_subsetR = 'All';              $active_subsetR = 'All';
500              @bestL = map { $genomeH->{$_} } keys(%$genomeH);              @bestL = map { $genomeH->{$_} } keys(%$genomeH);
# Line 502  Line 503 
503          {          {
504              my $bestN   = undef;              my $bestN   = undef;
505              @bestL   = ();              @bestL   = ();
   
506              my $tuple;              my $tuple;
507              foreach $tuple (@$row_subsets)              foreach $tuple (@$row_subsets)
508              {              {
# Line 516  Line 516 
516                          @bestL = @$genomeIs;                          @bestL = @$genomeIs;
517                      }                      }
518                  }                  }
519                    else
520                    {
521    #                   print &Dumper($id);
522                    }
523              }              }
524              $active_subsetR = $bestN;              $active_subsetR = $bestN;
525          }          }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3