[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.8, Tue Sep 20 16:58:48 2005 UTC revision 1.9, Wed Sep 21 16:32:42 2005 UTC
# Line 198  Line 198 
198              push(@$subsets,[$id,[@mem]]);              push(@$subsets,[$id,[@mem]]);
199          }          }
200      }      }
201        if (@$subsets == 0)
202        {
203            foreach $pair (@$taxonomic_groups)
204            {
205                ($id,$members) = @$pair;
206                my @mem = grep { defined($_) } map { $genomeH->{$_} } @$members;
207                if (@mem > 0)
208                {
209                    push(@$subsets,[$id,[@mem]]);
210                }
211            }
212        }
213      return $subsets;      return $subsets;
214  }  }
215    

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3