[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.101, Wed Apr 4 21:31:55 2007 UTC revision 1.102, Thu Apr 5 21:03:50 2007 UTC
# Line 2291  Line 2291 
2291   my ($self, $key, $want) = @_;   my ($self, $key, $want) = @_;
2292   my($id,$members,$pair);   my($id,$members,$pair);
2293   my $keep;   my $keep;
2294     #
2295     # First do a single call to retrieve all the values for the subset key.
2296     #
2297     my @attr_values = $self->{fig}->get_attributes(undef, $key);
2298     my %amap;
2299     map {  push(@{$amap{$_->[0]}}, [@$_]); } @attr_values;
2300    
2301   foreach my $genome (@{$self->{genome}}) {   foreach my $genome (@{$self->{genome}}) {
2302    my @results=$self->{fig}->get_attributes($genome, $key);    #my @results=$self->{fig}->get_attributes($genome, $key);
2303    foreach my $res (@results) {    my $results = $amap{$genome};
2304      next unless $results;
2305      foreach my $res (@$results) {
2306     my ($gotid, $gottag, $value, $url)=@$res;     my ($gotid, $gottag, $value, $url)=@$res;
2307     next if ($value && $want && $value ne $want);     next if ($value && $want && $value ne $want);
2308     next if ($gotid ne $genome);     next if ($gotid ne $genome);

Legend:
Removed from v.1.101  
changed lines
  Added in v.1.102

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3