[Bio] / FigKernelPackages / raelib.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/raelib.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.34, Tue Jun 6 00:58:23 2006 UTC revision 1.35, Tue Jun 6 02:25:37 2006 UTC
# Line 496  Line 496 
496    
497   foreach (@$orgs) {   foreach (@$orgs) {
498     my $gs = $fig->genus_species($_);     my $gs = $fig->genus_species($_);
499       if ($fig->genome_domain($_) ne "Environmental Sample")
500       {
501     my $gc=$fig->number_of_contigs($_);     my $gc=$fig->number_of_contigs($_);
502     $label->{$_} = "$gs ($_) [$gc contigs]";     $label->{$_} = "$gs ($_) [$gc contigs]";
503    }    }
504       else
505       {
506        $label->{$_} = "$gs ($_) ";
507       }
508      }
509    
510   @$orgs = sort {$label->{$a} cmp $label->{$b}} @$orgs;   @$orgs = sort {$label->{$a} cmp $label->{$b}} @$orgs;
511    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3