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

Diff of /FigKernelPackages/AliTree.pm

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

revision 1.3, Wed Aug 8 18:43:37 2007 UTC revision 1.4, Mon Aug 27 18:27:33 2007 UTC
# Line 224  Line 224 
224      return $self->{coords};      return $self->{coords};
225  }  }
226    
227    sub functions_in {
228        my($self) = @_;
229        my $fig    = $self->{fig};
230    
231        my($pegH,$peg,%funcs);
232        $pegH = $self->{coords};
233        foreach $peg (keys(%$pegH))
234        {
235            my $func = $fig->function_of($peg);
236            $funcs{$func}++;
237        }
238        return map { [$funcs{$_},$_] } sort { $funcs{$b} <=> $funcs{$a} } keys(%funcs);
239    }
240    
241  sub display {  sub display {
242      my($self) = @_;      my($self) = @_;
243    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3