[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.34, Thu Sep 23 19:58:28 2004 UTC revision 1.35, Tue Sep 28 20:39:39 2004 UTC
# Line 287  Line 287 
287    
288      $self->{row_subsets} = [];      $self->{row_subsets} = [];
289      $self->{row_subset_members} = {};      $self->{row_subset_members} = {};
290        $self->load_row_subsets();
291    
292      $self->{row_active_subset} = "All";      $self->{row_active_subset} = "All";
293      $self->{col_active_subset} = "All";      $self->{col_active_subset} = "All";
# Line 434  Line 435 
435    
436      $/ = "\n";      $/ = "\n";
437    
438        $self->load_row_subsets();
439      $self->load_genomes($ssa);      $self->load_genomes($ssa);
440    
441      #      #
# Line 601  Line 603 
603      {      {
604          $self->{row_active_subset} = 'All';          $self->{row_active_subset} = 'All';
605      }      }
606        $self->{row_subsets} = [];
607  }  }
608    
609  sub load_genomes  sub load_genomes
# Line 844  Line 847 
847    
848      for my $sub ($self->get_subset_namesC())      for my $sub ($self->get_subset_namesC())
849      {      {
850            next if ($sub eq "All");
851          my @members= $self->get_subsetC($sub);          my @members= $self->get_subsetC($sub);
852    
853          #          #
# Line 1234  Line 1238 
1238  {  {
1239      my($self) = @_;      my($self) = @_;
1240    
1241      return @{$self->{col_subsets}};      return ("All",@{$self->{col_subsets}});
1242  }  }
1243    
1244  sub get_subset_namesR  sub get_subset_namesR
1245  {  {
1246      my($self) = @_;      my($self) = @_;
1247    
1248      return @{$self->{col_subsets}};      return ("All",@{$self->{row_subsets}});
1249  }  }
1250    
1251  sub get_subsetC_roles  sub get_subsetC_roles
# Line 1270  Line 1274 
1274      my($pair,$id,$members,$genome);      my($pair,$id,$members,$genome);
1275    
1276      if ($subname eq "All") { return $self->get_genomes }      if ($subname eq "All") { return $self->get_genomes }
1277        return @{$self->{row_subset_members}->{$subname}};
1278    }
1279    
1280    sub load_row_subsets {
1281        my($self) = @_;
1282        my($id,$members,$pair);
1283    
     $members = $self->{row_subset_members}->{$subname};  
     if (! $members)  
     {  
1284          my $taxonomic_groups = $self->{fig}->taxonomic_groups_of_complete(10);          my $taxonomic_groups = $self->{fig}->taxonomic_groups_of_complete(10);
1285          foreach $pair (@$taxonomic_groups)          foreach $pair (@$taxonomic_groups)
1286          {          {
1287              ($id,$members) = @$pair;              ($id,$members) = @$pair;
1288            if ($id ne "All")
1289            {
1290              push(@{$self->{row_subsets}},$id);              push(@{$self->{row_subsets}},$id);
             $self->{row_subset_members}->{$id} = $members;  
1291          }          }
1292          $members = $self->{row_subset_members}->{$subname};          $self->{row_subset_members}->{$id} = $members;
1293      }      }
     return @$members;  
1294  }  }
1295    
1296    
1297  =pod  =pod
1298    
1299  =head2 set_subsetC($name, $members)  =head2 set_subsetC($name, $members)

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3