[Bio] / FigKernelPackages / PartitionSeqs.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/PartitionSeqs.pm

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

revision 1.1, Thu Feb 19 19:38:01 2009 UTC revision 1.2, Sat Mar 14 10:54:43 2009 UTC
# Line 46  Line 46 
46          my @seqs;          my @seqs;
47          if ($pegs = $options->{pegs})          if ($pegs = $options->{pegs})
48          {          {
49              @seqs = map { [$_,'',$fig->get_translation($_)] } @$pegs;              @seqs = grep { length($_->[2]) > 10 } map { [$_,'',$fig->get_translation($_)] } @$pegs;
50          }          }
51          else          else
52          {          {
53              @seqs = @{$options->{seqs}};              @seqs = @{$options->{seqs}};
54          }          }
55            (@seqs > 0) || return ();
56    
57          my %length = map { $_->[0] => length($_->[2]) } @seqs;          my %length = map { $_->[0] => length($_->[2]) } @seqs;
58    
59          my $blastF = "$FIG_Config::temp/tmp.$$.fasta";          my $blastF = "$FIG_Config::temp/tmp.$$.fasta";

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3