[Bio] / Sprout / GenomeSaplingLoader.pm Repository:
ViewVC logotype

Diff of /Sprout/GenomeSaplingLoader.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4, Wed Aug 19 17:08:32 2009 UTC revision 1.5, Wed Sep 9 16:30:22 2009 UTC
# Line 322  Line 322 
322      my $dna_size = $fig->genome_szdna($genomeID);      my $dna_size = $fig->genome_szdna($genomeID);
323      my $pegs = $fig->genome_pegs($genomeID);      my $pegs = $fig->genome_pegs($genomeID);
324      my $rnas = $fig->genome_rnas($genomeID);      my $rnas = $fig->genome_rnas($genomeID);
325      my $prokaryotic = ($fig->genome_domain($genomeID) =~ /bacter|archae/i);      my $domain = $fig->genome_domain($genomeID);
326        my $prokaryotic = ($domain =~ /bacter|archae/i);
327      # We need to compute the number of contigs from the list of contig IDs.      # We need to compute the number of contigs from the list of contig IDs.
328      my @contigIDs = $fig->contigs_of($genomeID);      my @contigIDs = $fig->contigs_of($genomeID);
329      my $contigs = scalar(@contigIDs);      my $contigs = scalar(@contigIDs);
330      # Write the genome record.      # Write the genome record.
331      $self->PutE(Genome => $genomeID, complete => $complete, contigs => $contigs,      $self->PutE(Genome => $genomeID, complete => $complete, contigs => $contigs,
332                  dna_size => $dna_size, scientific_name => $scientific_name,                  dna_size => $dna_size, scientific_name => $scientific_name,
333                  pegs => $pegs, rnas => $rnas, prokaryotic => $prokaryotic);                  pegs => $pegs, rnas => $rnas, prokaryotic => $prokaryotic,
334                    domain => $domain);
335      # Now we create the Contigs. Each one needs to be split into DNA sequences.      # Now we create the Contigs. Each one needs to be split into DNA sequences.
336      for my $contigID (@contigIDs) {      for my $contigID (@contigIDs) {
337          $self->Track(Contigs => $contigID, 100);          $self->Track(Contigs => $contigID, 100);

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3