[Bio] / SeedViewer / MetagenomeAnalysis.pm Repository:
ViewVC logotype

Diff of /SeedViewer/MetagenomeAnalysis.pm

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

revision 1.20, Fri Aug 15 22:46:48 2008 UTC revision 1.21, Wed Aug 20 18:27:15 2008 UTC
# Line 120  Line 120 
120    
121  }  }
122    
   
123  sub key2taxa {  sub key2taxa {
124    if(defined $_[1]) {    if(defined $_[1]) {
125      my $t = $_[0]->{key2taxa}->{$_[1]}->{str};      my $t = $_[0]->{key2taxa}->{$_[1]}->{str};
# Line 537  Line 536 
536  }  }
537    
538    
539    sub get_tax2genomeid {
540      my ($self, $taxstring) = @_;
541    
542      my ($genomeid) = $self->dbh->selectrow_array(qq(SELECT seq_num
543                                                    FROM rdp_to_tax
544                                                    WHERE tax_str= ?), undef, $taxstring);
545    
546      return $genomeid;
547    }
548    
549    
550  =pod  =pod
551    
552  =item * B<get_subsystem_counts> (I<dataset_name>)  =item * B<get_subsystem_counts> (I<dataset_name>)
# Line 653  Line 663 
663    
664    my ($tax_id) = $self->dbh->selectrow_array(qq(SELECT tax_str    my ($tax_id) = $self->dbh->selectrow_array(qq(SELECT tax_str
665                                                  FROM rdp_to_tax                                                  FROM rdp_to_tax
666                                                  WHERE seq_num= ?), undef, $genome);                                                  WHERE seq_num= ? and dbid= ?), undef, $genome, $dbid);
667    
668    if($tax_id =~ /(\S+)\s/){    if($tax_id =~ /(\S+)\s/){
669      $tax_id = $1;      $tax_id = $1;

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3