[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.4, Fri Jun 27 21:57:12 2008 UTC revision 1.6, Thu Oct 9 18:10:31 2008 UTC
# Line 24  Line 24 
24  use Data::Dumper;  use Data::Dumper;
25    
26  use FIG;  use FIG;
 my $fig = new FIG;  
27  use FIGV;  use FIGV;
28    
29  sub compare_genomes_MR {  sub compare_genomes_MR {
# Line 33  Line 32 
32      unless ($fig_services) {      unless ($fig_services) {
33        if (-d "$FIG_Config::organisms/$arg1")        if (-d "$FIG_Config::organisms/$arg1")
34          {          {
35            $fig_services = $fig;            $fig_services = FIG->new();
36            $genome1      = $arg1;            $genome1      = $arg1;
37          }          }
38        else        else
39          {          {
40            if (-d $arg1)            if (-d $arg1)
41              {              {
42                my $figV = new FIGV($arg1,$fig);                my $figV = new FIGV($arg1,FIG->new());
43                $fig_services = $figV;                $fig_services = $figV;
44                if ($arg1 =~ /(\d+\.\d+)$/)                if ($arg1 =~ /(\d+\.\d+)$/)
45                  {                  {
# Line 127  Line 126 
126                  push(@$pegs1,$dataA->[$i1]->[2]);                  push(@$pegs1,$dataA->[$i1]->[2]);
127                  $i1++;                  $i1++;
128              }              }
129              push(@$in1_not2,[$currS,$currR,$pegs1]);              push(@$in1_not2,[$currS,$currR,$pegs1,[$fig_services->seqs_with_role($currR,undef,$genomeB)]]);
130          }          }
131          elsif ( ($dataA->[$i1]->[0] gt $dataB->[$i2]->[0]) ||          elsif ( ($dataA->[$i1]->[0] gt $dataB->[$i2]->[0]) ||
132                 (($dataA->[$i1]->[0] eq $dataB->[$i2]->[0]) && ($dataA->[$i1]->[1] gt $dataB->[$i2]->[1])))                 (($dataA->[$i1]->[0] eq $dataB->[$i2]->[0]) && ($dataA->[$i1]->[1] gt $dataB->[$i2]->[1])))

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3