[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.4, Fri Mar 31 19:37:40 2006 UTC revision 1.5, Sat Apr 1 18:24:23 2006 UTC
# Line 30  Line 30 
30  #  #
31  # $fam_data is optional.  If it exists,  # $fam_data is optional.  If it exists,
32  # it gives the directory that is (or will) contain the FigFam data.  # it gives the directory that is (or will) contain the FigFam data.
33  # $FIG_Config::data/FigfamsData/FIGFAMS will be used as a default.  # $FIG_Config::data/FigfamsData will be used as a default.
34  #  #
35  # $fam_file must exist within $fam_data.  It contains a 2-column version of the FIG families.  # $fam_file must exist within $fam_data.  It contains a 2-column version of the FIG families.
36  # If the $fam_dir/yyy/FIGxxxxyyy directory (which is where the directory for the specific family  # If the $fam_dir/yyy/FIGxxxxyyy directory (which is where the directory for the specific family
# Line 321  Line 321 
321              bless $sim, 'Sim';              bless $sim, 'Sim';
322              push @$sims, $sim;              push @$sims, $sim;
323              my $bounds = $self->{bounds}->{$peg};              my $bounds = $self->{bounds}->{$peg};
324              if ($bounds && ($sc <= $bounds->[1]) && ($bounds->[3] > $sc))              if ($bounds && ($sc <= $bounds->[1]) && ((! $bounds->[2]) || $bounds->[3] > $sc))
325              {              {
326                  $should_be = 1;                  $should_be = $peg;
327              }              }
328          }          }
329      }      }
330      return ($should_be,$sims);      return ($should_be,$sims);
331  }  }
332    
333    sub family_function {
334        my($self) = @_;
335    
336        return $self->{function}
337    }
338    
339  1;  1;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3