[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.5, Thu Apr 17 20:48:15 2008 UTC
# Line 9  Line 9 
9  )  )
10      || die $usage;      || die $usage;
11    
12  $ff_data = (@ARGV > 0) ? $ARGV[0] : "$FIG_Config::FigfamsData";  $ff_data = (@ARGV > 0) ? $ARGV[0] : &FIG::get_figfams_data();
13  use FigFams;  use FigFams;
14  $figfams = new FigFams($fig,$ff_data);  $figfams = new FigFams($fig,$ff_data);
15  $seq = $fig->get_translation($peg);  $seq = $fig->get_translation($peg);
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.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3