[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.236, Tue Mar 8 21:06:04 2005 UTC revision 1.237, Tue Mar 8 21:14:53 2005 UTC
# Line 2036  Line 2036 
2036    
2037  =cut  =cut
2038    
2039  sub genome_md5sum {  sub genome_md5sum :scalar {
2040      my($self,$genome) = @_;      my($self,$genome) = @_;
2041      my $relational_db_response;      my $relational_db_response;
2042      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
# Line 2052  Line 2052 
2052      return undef;      return undef;
2053  }  }
2054    
2055    sub contig_md5sum :scalar {
2056        my($self, $genome, $contig) = @_;
2057        my $relational_db_response;
2058        my $rdbH = $self->db_handle;
2059    
2060        if ($genome)
2061        {
2062            if (($relational_db_response = $rdbH->SQL(qq(SELECT md5 FROM contig_md5sums
2063                                                         WHERE (genome = ? AND
2064                                                                contig = ?)), undef, $genome, $contig))
2065                && (@$relational_db_response == 1))
2066            {
2067                return $relational_db_response->[0]->[0];
2068            }
2069        }
2070        return undef;
2071    }
2072    
2073  =pod  =pod
2074    
2075  =head1 genus_species  =head1 genus_species

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3