[Bio] / FigKernelScripts / test_figfam_peg.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/test_figfam_peg.pl

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

revision 1.3, Sat Mar 1 15:52:45 2008 UTC revision 1.4, Fri Apr 11 12:00:34 2008 UTC
# Line 16  Line 16 
16    
17  $ENV{'DEBUG'} = 1;  $ENV{'DEBUG'} = 1;
18    
19  ($got,$sims) = $figfams->place_in_family($seq);  ($got,$sims) = $figfams->place_in_family($seq,1);
20  if (defined($got))  if (defined($got))
21  {  {
22      print &Dumper($sims,$got->family_id,$got->family_function);      print &Dumper($sims,$got->family_id,$got->family_function);
23  }  }
24  else  else
25  {  {
26      print STDERR "Sorry, no call, trying loose check\n";      print "Sorry, no call, trying loose check\n";
27      ($got,$sims) = $figfams->place_in_family($seq,1,1);      ($got,$sims) = $figfams->place_in_family($seq,1,1);
28      if (defined($got))      if (defined($got))
29      {      {
# Line 31  Line 31 
31      }      }
32      else      else
33      {      {
34          print STDERR "Sorry, no call\n";          print "Sorry, no call\n";
35      }      }
36  }  }
37    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3