[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.141, Mon Aug 23 03:34:32 2004 UTC revision 1.142, Mon Aug 23 18:35:51 2004 UTC
# Line 3274  Line 3274 
3274              }              }
3275              if (($max_expand > 0) && ($select ne "raw"))              if (($max_expand > 0) && ($select ne "raw"))
3276              {              {
3277                  unshift(@raw_sims,bless([$id,$rep_id,100.00,undef,undef,undef,1,$entry[0]->[1],$delta+1,$maps_to[0]->[1],0.0,,undef,$entry[0]->[1],$maps_to[0]->[1],"blastp",0,0],'Sim'));                  unshift(@raw_sims,bless([$id,
3278                                             $rep_id,
3279                                             100.00,
3280                                             $entry[0]->[1],
3281                                             0,
3282                                             0,
3283                                             1,$entry[0]->[1],
3284                                             $delta+1,$maps_to[0]->[1],
3285                                             0.0,
3286                                             2 * $entry[0]->[1],
3287                                             $entry[0]->[1],
3288                                             $maps_to[0]->[1],
3289                                             "blastp",
3290                                             undef,
3291                                             undef
3292                                            ],'Sim'));
3293                  $max_expand++;                  $max_expand++;
3294              }              }
3295              @sims = grep { $_->id1 ne $_->id2 } &expand_raw_sims($self,\@raw_sims,$maxP,$select,0,$max_expand);              @sims = grep { $_->id1 ne $_->id2 } &expand_raw_sims($self,\@raw_sims,$maxP,$select,0,$max_expand);
# Line 3370  Line 3385 
3385                           map  { [split(/\t/,$_),"blastp"] }                           map  { [split(/\t/,$_),"blastp"] }
3386                           @$readC;                           @$readC;
3387    
3388          @lines = sort { $a->[10] <=> $b->[10] } @lines;          @lines = sort { $a->[11] <=> $b->[11] } @lines;
3389    
3390          for ($i=0; ($i < @lines); $i++)          for ($i=0; ($i < @lines); $i++)
3391          {          {

Legend:
Removed from v.1.141  
changed lines
  Added in v.1.142

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3