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

Diff of /FigKernelPackages/CompareMR.pm

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

revision 1.3, Wed May 9 15:54:29 2007 UTC revision 1.4, Fri Jun 27 21:57:12 2008 UTC
# Line 156  Line 156 
156      my($fig_services,$genome) = @_;      my($fig_services,$genome) = @_;
157    
158      my $sub_data = $fig_services->get_genome_subsystem_data($genome);      my $sub_data = $fig_services->get_genome_subsystem_data($genome);
159      return [sort { ($a->[0] cmp $b->[0]) or ($a->[1] cmp $b->[1]) or &FIG::by_fig_id($a->[2],$b->[2]) } @$sub_data];      return [sort { ($a->[0] cmp $b->[0]) or ($a->[1] cmp $b->[1]) or ($a->[3] <=> $b->[3]) } map {$_->[2] =~ /\.(\d+)$/; [@$_, $1]} @$sub_data];
160    
161        # sort by_fig_id inefficient for metagenomes with large numbers of features
162    #    return [sort { ($a->[0] cmp $b->[0]) or ($a->[1] cmp $b->[1]) or &FIG::by_fig_id($a->[2],$b->[2]) } @$sub_data];
163  }  }
164    
165  1;  1;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3