[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.235, Sun Mar 6 15:10:02 2005 UTC revision 1.236, Tue Mar 8 21:06:04 2005 UTC
# Line 2022  Line 2022 
2022      return undef;      return undef;
2023  }  }
2024    
2025    =head1 genome_md5sum
2026    
2027    usage: $md5sum = $fig->genome_md5sum($genome_id);
2028    
2029    Returns the MD5 checksum of genome $genome_id.
2030    
2031    The checksum of a genome is defined as the checksum of its signature file. The signature
2032    file consists of tab-separated lines, one for each contig, ordered by the contig id.
2033    Each line contains the contig ID, the length of the contig in nucleotides, and the
2034    MD5 checksum of the nucleotide data, with uppercase letters forced to lower case.
2035    
2036    
2037    =cut
2038    
2039    sub genome_md5sum {
2040        my($self,$genome) = @_;
2041        my $relational_db_response;
2042        my $rdbH = $self->db_handle;
2043    
2044        if ($genome)
2045        {
2046            if (($relational_db_response = $rdbH->SQL("SELECT md5sum FROM genome_md5sum WHERE ( genome = \'$genome\' )"))
2047                && (@$relational_db_response == 1))
2048            {
2049                return $relational_db_response->[0]->[0];
2050            }
2051        }
2052        return undef;
2053    }
2054    
2055  =pod  =pod
2056    
2057  =head1 genus_species  =head1 genus_species

Legend:
Removed from v.1.235  
changed lines
  Added in v.1.236

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3