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

Diff of /FigKernelPackages/FigFam.pm

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

revision 1.24, Fri Oct 13 14:57:55 2006 UTC revision 1.25, Mon Oct 16 01:31:33 2006 UTC
# Line 41  Line 41 
41  sub new {  sub new {
42      my($class,$fig,$fam_id,$fam_data) = @_;      my($class,$fig,$fam_id,$fam_data) = @_;
43    
44        ($fam_id =~ /^FIG\d{6}$/) || confess "invalid family id: $fam_id";
45    
46      my $fam = {};      my $fam = {};
47      $fam->{id}  = $fam_id;      $fam->{id}  = $fam_id;
48      $fam->{fig} = $fig;      $fam->{fig} = $fig;
# Line 400  Line 402 
402      print TMP ">query\n$seq\n";      print TMP ">query\n$seq\n";
403      close(TMP);      close(TMP);
404    
405      if ($ENV{'DEBUG'}) { print &Dumper([$self->family_id,$seq]) }      if ($ENV{'DEBUG'}) { print STDERR &Dumper([$self->family_id,$seq]) }
406    
407      my $query_ln = length($seq);      my $query_ln = length($seq);
408    
# Line 443  Line 445 
445              my $bounds = $self->{bounds}->{$peg};              my $bounds = $self->{bounds}->{$peg};
446              if ($bounds && (@$sims <= 10))              if ($bounds && (@$sims <= 10))
447              {              {
448                  if (($bit_score > $bounds->[1]) && ((! $bounds->[2]) || $bounds->[3] < $bit_score))                  if (($bit_score >= $bounds->[1]) && ((! $bounds->[2]) || $bounds->[3] < $bit_score))
449                  {                  {
450                      if ($ENV{'DEBUG'}) { print STDERR "    yes - $peg\n" }                      if ($ENV{'DEBUG'}) { print STDERR "    yes - $peg\n" }
451                      ++$yes;                      ++$yes;
# Line 458  Line 460 
460              }              }
461          }          }
462      }      }
463      if ($ENV{'DEBUG'}) { print STDERR "        yes=$yes no=$no\n" }      if ($ENV{'DEBUG'}) { print STDERR "        yes=$yes no=$no good=$good\n" }
464      return ($good,$sims);      return ($good,$sims);
465  }  }
466    

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3