[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.259, Wed Mar 30 15:53:37 2005 UTC revision 1.260, Wed Mar 30 19:58:20 2005 UTC
# Line 17  Line 17 
17  use Construct;  use Construct;
18  use FIGRules;  use FIGRules;
19  use Tracer;  use Tracer;
20    
21  eval { require FigGFF; };  eval { require FigGFF; };
22    if ($@ and $ENV{USER} eq "olson")
23    {
24        warn $@;
25    }
26    
27  #  #
28  # Conditionally evaluate this in case its prerequisites are not available.  # Conditionally evaluate this in case its prerequisites are not available.
# Line 2053  Line 2058 
2058      return undef;      return undef;
2059  }  }
2060    
2061    =head1 genome_with_md5sum
2062    
2063    usage: $genome = $fig->genome_with_md5sum($cksum);
2064    
2065    Find a genome with checksum $cksum.
2066    
2067    =cut
2068    
2069    sub genome_with_md5sum :scalar {
2070        my($self,$cksum) = @_;
2071        my $relational_db_response;
2072        my $rdbH = $self->db_handle;
2073    
2074        if (($relational_db_response = $rdbH->SQL("SELECT genome FROM genome_md5sum WHERE ( md5sum = \'$cksum\' )"))
2075            && (@$relational_db_response == 1))
2076        {
2077            return $relational_db_response->[0]->[0];
2078        }
2079    
2080        return undef;
2081    }
2082    
2083  sub contig_md5sum :scalar {  sub contig_md5sum :scalar {
2084      my($self, $genome, $contig) = @_;      my($self, $genome, $contig) = @_;
2085      my $relational_db_response;      my $relational_db_response;

Legend:
Removed from v.1.259  
changed lines
  Added in v.1.260

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3