[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.5, Fri Sep 12 01:47:15 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                  {                  {

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3