[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.90, Mon May 24 19:32:36 2004 UTC revision 1.91, Mon May 24 21:03:39 2004 UTC
# Line 1175  Line 1175 
1175    
1176  =head1 genome_version  =head1 genome_version
1177    
1178    usage: $szdna = $fig->genome_size($genome_id);
1179    
1180    Returns the number of DNA base-pairs in the genome contigs file(s) if
1181    "$genome_id" is in the "genome" database, and 'undef' otherwise.
1182    
1183    =cut
1184    
1185    sub genome_size {
1186        my($self,$genome) = @_;
1187        my $relational_db_response;
1188        my $rdbH = $self->db_handle;
1189    
1190        if ($genome)
1191        {
1192            if (($relational_db_response = $rdbH->SQL("SELECT szdna FROM genome WHERE ( genome = \'$genome\' )"))
1193                && (@$relational_db_response == 1))
1194            {
1195                return $relational_db_response->[0]->[0];
1196            }
1197        }
1198        return undef;
1199    }
1200    
1201    
1202    =pod
1203    
1204    =head1 genome_version
1205    
1206  usage: $version = $fig->genome_version($genome_id);  usage: $version = $fig->genome_version($genome_id);
1207    
1208  Versions are incremented for major updates.  They are put in as major  Versions are incremented for major updates.  They are put in as major

Legend:
Removed from v.1.90  
changed lines
  Added in v.1.91

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3