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

Diff of /FigKernelPackages/SapCompareRegions.pm

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

revision 1.2, Mon Nov 29 23:29:26 2010 UTC revision 1.3, Wed Feb 9 20:21:47 2011 UTC
# Line 89  Line 89 
89      my @result;      my @result;
90      my $row = 0;      my $row = 0;
91    
92        my $names = $self->genome_names({-ids => [ map { SeedUtils::genome_of($_) } @pegs ]});
93    
94      for my $peg (@pegs)      for my $peg (@pegs)
95      {      {
96          my $genome = SeedUtils::genome_of($peg);          my $genome = SeedUtils::genome_of($peg);
# Line 102  Line 104 
104                                $ctg, $beg, $end, $dir, $row]; } @$reg;                                $ctg, $beg, $end, $dir, $row]; } @$reg;
105    
106          @row_data = sort { $a->[5] <=> $b->[5] } @row_data;          @row_data = sort { $a->[5] <=> $b->[5] } @row_data;
107          push(@result, \@row_data);          push(@result, {
108                genome_id => $genome,
109                genome_name => $names->{$genome},
110                row_id => $row,
111                features => \@row_data,
112            });
113          $row++;          $row++;
114      }      }
115      return \@result;      return \@result;
# Line 123  Line 130 
130      my %group_count;      my %group_count;
131      for my $row (@$context)      for my $row (@$context)
132      {      {
133          for my $ent (@$row)          for my $ent (@{$row->{features}})
134          {          {
135              my($peg, $func, $fam, $ctg, $beg, $end, $dir, $rownum) = @$ent;              my($peg, $func, $fam, $ctg, $beg, $end, $dir, $rownum) = @$ent;
136              next unless defined($func);              next unless defined($func);

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3