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

Diff of /FigKernelPackages/Assignments.pm

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

revision 1.8, Wed Feb 15 22:12:26 2006 UTC revision 1.9, Sun Feb 19 04:15:44 2006 UTC
# Line 359  Line 359 
359    
360    
361  sub choose_best_assignment {  sub choose_best_assignment {
362      my($fig,$parms,$pegs,$external_ids) = @_;      my($fig,$parms,$pegs,$external_ids,$ignore) = @_;
363      my($peg,$id);      my($peg,$id);
364    
365      my $functions = {};      my $functions = {};
# Line 367  Line 367 
367      {      {
368          &load_peg_function($fig,$parms,$peg,$functions);          &load_peg_function($fig,$parms,$peg,$functions);
369      }      }
370        my @tmp = keys(%$functions);
371    #   print &Dumper(['peg check',\@tmp,$functions]);
372    
373        if ((@tmp == 1) && (@$pegs >= 5)) { return $tmp[0] }
374    
375      foreach $id (@$external_ids)      foreach $id (@$external_ids)
376      {      {

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3