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

Diff of /FigKernelPackages/ComparedRegions.pm

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

revision 1.2, Tue Jun 19 18:52:40 2007 UTC revision 1.3, Tue Jun 19 21:12:53 2007 UTC
# Line 7  Line 7 
7    
8  use FIG;  use FIG;
9  use FIGV;  use FIGV;
10    use Tracer;
11    
12  sub get_compared_regions {  sub get_compared_regions {
13    my ($params) = @_;    my ($params) = @_;
# Line 75  Line 76 
76      (-e $file) || return undef;      (-e $file) || return undef;
77    
78      open(PAT, "<$file") or die "could not open file '$file': $!";      open(PAT, "<$file") or die "could not open file '$file': $!";
79      while ( defined($line = <HITS>) ) {      while ( defined($line = <PAT>) ) {
80          chomp $line;          chomp $line;
81          $pattern .= $line;          $pattern .= $line;
82      }      }
# Line 259  Line 260 
260      return $locations;      return $locations;
261  }  }
262    
263    
264  # returns the n closest pegs, sorted by taxonomy  # returns the n closest pegs, sorted by taxonomy
265  sub get_closest_pegs {  sub get_closest_pegs {
266    my ($fig, $peg, $is_sprout, $n) = @_;    my ($fig, $peg, $is_sprout, $n) = @_;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3