[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.7, Thu Jan 29 20:24:13 2009 UTC revision 1.8, Fri Feb 6 16:51:28 2009 UTC
# Line 159  Line 159 
159      my($fig_services,$genome) = @_;      my($fig_services,$genome) = @_;
160    
161      my $sub_data = $fig_services->get_genome_subsystem_data($genome);      my $sub_data = $fig_services->get_genome_subsystem_data($genome);
162      return [sort { ($a->[0] cmp $b->[0]) or ($a->[1] cmp $b->[1]) or ($a->[3] <=> $b->[3]) } map {$_->[2] =~ /\.(\d+)$/; [@$_, $1]} @$sub_data];      return [sort { ($a->[0] cmp $b->[0]) or ($a->[1] cmp $b->[1]) or ($a->[3] <=> $b->[3]) } map {$_->[2] =~ /\.(\d+)$/;$_->[1] =~ s/\#.+//; [@$_, $1]} @$sub_data];
163    
164      # sort by_fig_id inefficient for metagenomes with large numbers of features      # sort by_fig_id inefficient for metagenomes with large numbers of features
165  #    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 &FIG::by_fig_id($a->[2],$b->[2]) } @$sub_data];

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3