[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.91, Mon May 24 21:03:39 2004 UTC revision 1.92, Mon May 24 21:14:16 2004 UTC
# Line 1171  Line 1171 
1171      return ($a,$b,$e,$v);      return ($a,$b,$e,$v);
1172  }  }
1173    
1174    
1175  =pod  =pod
1176    
1177  =head1 genome_version  =head1 genome_pegs
1178    
1179    usage: $pegs = $fig->genome_pegs($genome_id);
1180    
1181    Returns the number of DNA base-pairs in the genome contigs file(s) if
1182    "$genome_id" is in the "genome" database, and 'undef' otherwise.
1183    
1184    =cut
1185    
1186    sub genome_pegs {
1187        my($self,$genome) = @_;
1188        my $relational_db_response;
1189        my $rdbH = $self->db_handle;
1190    
1191        if ($genome)
1192        {
1193            if (($relational_db_response = $rdbH->SQL("SELECT pegs FROM genome WHERE ( genome = \'$genome\' )"))
1194                && (@$relational_db_response == 1))
1195            {
1196                return $relational_db_response->[0]->[0];
1197            }
1198        }
1199        return undef;
1200    }
1201    
1202    
1203    =pod
1204    
1205    =head1 genome_rnas
1206    
1207    usage: $rnas = $fig->genome_rnas($genome_id);
1208    
1209    Returns the number of DNA base-pairs in the genome contigs file(s) if
1210    "$genome_id" is in the "genome" database, and 'undef' otherwise.
1211    
1212    =cut
1213    
1214    sub genome_rnas {
1215        my($self,$genome) = @_;
1216        my $relational_db_response;
1217        my $rdbH = $self->db_handle;
1218    
1219        if ($genome)
1220        {
1221            if (($relational_db_response = $rdbH->SQL("SELECT rnas FROM genome WHERE ( genome = \'$genome\' )"))
1222                && (@$relational_db_response == 1))
1223            {
1224                return $relational_db_response->[0]->[0];
1225            }
1226        }
1227        return undef;
1228    }
1229    
1230    
1231    =pod
1232    
1233    =head1 genome_szdna
1234    
1235  usage: $szdna = $fig->genome_size($genome_id);  usage: $szdna = $fig->genome_szdna($genome_id);
1236    
1237  Returns the number of DNA base-pairs in the genome contigs file(s) if  Returns the number of DNA base-pairs in the genome contigs file(s) if
1238  "$genome_id" is in the "genome" database, and 'undef' otherwise.  "$genome_id" is in the "genome" database, and 'undef' otherwise.
1239    
1240  =cut  =cut
1241    
1242  sub genome_size {  sub genome_szdna {
1243      my($self,$genome) = @_;      my($self,$genome) = @_;
1244      my $relational_db_response;      my $relational_db_response;
1245      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3