[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.75, Wed Apr 28 21:59:32 2004 UTC revision 1.76, Thu Apr 29 16:41:16 2004 UTC
# Line 1756  Line 1756 
1756                    map { $sim = $_; [$sim->iden,$sim->id2] }                    map { $sim = $_; [$sim->iden,$sim->id2] }
1757                    grep { $hits{$_->id2} }                    grep { $hits{$_->id2} }
1758                    $self->sims($first,1000,1,"raw");                    $self->sims($first,1000,1,"raw");
1759        my %ordered = map { $_->[1] => 1 } @ordered;
1760        foreach $_ (@rest)
1761        {
1762            if (! $ordered{$_})
1763            {
1764                push(@ordered,[0,$_]);
1765            }
1766        }
1767    
1768      while ((@ordered > 0) && ($ordered[0]->[0] >= 97))      while ((@ordered > 0) && ($ordered[0]->[0] >= 97))
1769      {      {
1770          shift @ordered ;          shift @ordered ;

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3