[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.634, Thu Oct 18 21:09:48 2007 UTC revision 1.635, Tue Oct 30 18:19:31 2007 UTC
# Line 17011  Line 17011 
17011  sub get_genome_stats {  sub get_genome_stats {
17012      # Get the parameters.      # Get the parameters.
17013      my ($self, $genomeID) = @_;      my ($self, $genomeID) = @_;
17014    
17015        if (!$self->is_genome($genomeID))
17016        {
17017            return ();
17018        }
17019    
17020      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
17021      my $relational_db_response = $rdbH->SQL("SELECT gname,szdna,pegs,rnas,taxonomy FROM genome WHERE genome = '$genomeID'");      my $relational_db_response = $rdbH->SQL("SELECT gname,szdna,pegs,rnas,taxonomy FROM genome WHERE genome = '$genomeID'");
17022      return @{$relational_db_response->[0]};      my($db_gname, $db_szdna, undef, undef, $tax) = @{$relational_db_response->[0]};
17023        #
17024        # Need to patch with the actual counts of the PEGs and RNAs.
17025        #
17026    
17027        my $rna_count = $self->all_features($genomeID, 'rna');
17028        my $peg_count = $self->all_features($genomeID, 'peg');
17029    
17030        return ($db_gname, $db_szdna, $peg_count, $rna_count, $tax);
17031  }  }
17032    
17033  =head3 get_genome_assignment_data  =head3 get_genome_assignment_data
# Line 17046  Line 17060 
17060      # Get the data.      # Get the data.
17061      my $retVal = $rdbH->SQL("SELECT prot,assigned_function FROM assigned_functions WHERE ( prot like 'fig\|$genomeID.peg.%' AND made_by = 'master' )");      my $retVal = $rdbH->SQL("SELECT prot,assigned_function FROM assigned_functions WHERE ( prot like 'fig\|$genomeID.peg.%' AND made_by = 'master' )");
17062      # Return it.      # Return it.
17063      return $retVal;  
17064        my @filtered = grep  { not $self->is_deleted_fid($_->[0]) } @$retVal;
17065    
17066        return [@filtered];
17067  }  }
17068    
17069  sub get_basic_statistics  sub get_basic_statistics

Legend:
Removed from v.1.634  
changed lines
  Added in v.1.635

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3