[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.49, Tue Apr 5 18:24:34 2005 UTC revision 1.50, Thu Apr 7 19:16:10 2005 UTC
# Line 1369  Line 1369 
1369   my($id,$members,$pair);   my($id,$members,$pair);
1370   my $keep;   my $keep;
1371   foreach my $genome (@{$self->{genome}}) {   foreach my $genome (@{$self->{genome}}) {
1372    my ($value, $url)=$self->{fig}->get_attributes($genome, $key);    my @results=$self->{fig}->get_attributes($genome, $key);
1373      foreach my $res (@results) {
1374       my ($value, $url)=@$res;
1375    next if (!$value);    next if (!$value);
1376    next if ($want && $value ne $want);    next if ($want && $value ne $want);
1377    push @$keep, $genome;    push @$keep, $genome;
1378       last;
1379      }
1380   }   }
1381   $self->{row_subset_members}->{$key}=$keep;   $self->{row_subset_members}->{$key}=$keep;
1382  }  }

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3