[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.37, Sun Oct 10 17:13:55 2004 UTC revision 1.38, Tue Oct 12 11:56:23 2004 UTC
# Line 1121  Line 1121 
1121    
1122      if (! defined($col))      if (! defined($col))
1123      {      {
1124          warn "Cannot find col for $role\n";          print &Dumper($self->{role_index});
1125            confess "Cannot find col for $role\n";
1126          return undef;          return undef;
1127      }      }
1128      my $cell = $self->get_cell($row, $col);      my $cell = $self->get_cell($row, $col);
# Line 1171  Line 1172 
1172    
1173      if (! defined($row))      if (! defined($row))
1174      {      {
1175          warn "Cannot find row for $rowstr\n";          print &Dumper($self->{genome_index});
1176            confess "Cannot find row for $rowstr\n";
1177          return undef;          return undef;
1178      }      }
1179    
# Line 1294  Line 1296 
1296      my($pair,$id,$members,$genome);      my($pair,$id,$members,$genome);
1297    
1298      if ($subname eq "All") { return $self->get_genomes }      if ($subname eq "All") { return $self->get_genomes }
1299      return @{$self->{row_subset_members}->{$subname}};      my %genomes = map { $_ => 1 } $self->get_genomes;
1300    
1301        return grep { $genomes{$_} } @{$self->{row_subset_members}->{$subname}};
1302  }  }
1303    
1304  sub load_row_subsets {  sub load_row_subsets {

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3