[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.6, Thu Oct 9 18:10:31 2008 UTC revision 1.8, Fri Feb 6 16:51:28 2009 UTC
# Line 26  Line 26 
26  use FIG;  use FIG;
27  use FIGV;  use FIGV;
28    
29    # "arg1" is evidently either a genome id or a pointer to a RAST directory.
30    # $genome1 is irrelevant, if $fig_services has not been instantiated.
31    # If it has, then it is the real 'genome1'.  This is pretty clutzy.
32    
33  sub compare_genomes_MR {  sub compare_genomes_MR {
34      my($arg1,$genome2, $fig_services, $genome1) = @_;      my($arg1,$genome2, $fig_services, $genome1) = @_;
35    
# Line 155  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.6  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3