[Bio] / FigWebServices / index.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/index.cgi

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

revision 1.47, Sat Sep 11 00:45:40 2004 UTC revision 1.48, Fri Oct 8 22:04:48 2004 UTC
# Line 310  Line 310 
310      #  Use $fig->genomes( complete, restricted, domain ) to get org list:      #  Use $fig->genomes( complete, restricted, domain ) to get org list:
311      #      #
312      my $complete = ( $req_comp =~ /^all$/i ) ? undef : "complete";      my $complete = ( $req_comp =~ /^all$/i ) ? undef : "complete";
313      my @orgs = sort  
314                 map { $fig->genus_species($_) . " ($_)" }      my @orgs = sort map { $org = $_; my $gs = $fig->genus_species($org); my $gc=scalar $fig->all_contigs($org); "$gs ($org) [$gc contigs]" }
315                 $fig->genomes( $complete, undef, $canonical{ $req_dom } );                 $fig->genomes( $complete, undef, $canonical{ $req_dom } );
316    
317      my $n_genomes = @orgs;      my $n_genomes = @orgs;

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3