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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.149, Thu Sep 9 00:00:09 2004 UTC revision 1.150, Sat Sep 11 00:46:49 2004 UTC
# Line 1507  Line 1507 
1507    
1508  =head1 genomes  =head1 genomes
1509    
1510  usage: @genome_ids = $fig->genomes;  usage: @genome_ids = $fig->genomes( $complete, $restrictions, $domain );
1511    
1512  Genomes are assigned ids of the form X.Y where X is the taxonomic id maintained by  Genomes are assigned ids of the form X.Y where X is the taxonomic id maintained by
1513  NCBI for the species (not the specific strain), and Y is a sequence digit assigned to  NCBI for the species (not the specific strain), and Y is a sequence digit assigned to
# Line 1517  Line 1517 
1517  =cut  =cut
1518    
1519  sub genomes  :remote :list {  sub genomes  :remote :list {
1520      my($self,$complete,$restrictions) = @_;      my( $self, $complete, $restrictions, $domain ) = @_;
1521    
1522      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
1523    
# Line 1532  Line 1532 
1532          push(@where,"( restrictions = \'1\' )")          push(@where,"( restrictions = \'1\' )")
1533      }      }
1534    
1535        if ($domain)
1536        {
1537            push( @where, "( maindomain = '$domain' )" )
1538        }
1539    
1540      my $relational_db_response;      my $relational_db_response;
1541      if (@where > 0)      if (@where > 0)
1542      {      {
# Line 1546  Line 1551 
1551      return @genomes;      return @genomes;
1552  }  }
1553    
1554    
1555  sub genome_counts {  sub genome_counts {
1556      my($self,$complete) = @_;      my($self,$complete) = @_;
1557      my($x,$relational_db_response);      my($x,$relational_db_response);

Legend:
Removed from v.1.149  
changed lines
  Added in v.1.150

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3