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

Diff of /FigKernelPackages/FIGV.pm

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

revision 1.52, Thu Mar 13 22:28:19 2008 UTC revision 1.53, Tue May 6 16:50:14 2008 UTC
# Line 32  Line 32 
32    
33  sub new {  sub new {
34      my($class,$org_dir,$low_level) = @_;      my($class,$org_dir,$low_level) = @_;
35        print STDERR "FIGV::new => (", join(qq(, ), ($class, $org_dir, $low_level)), ")\n"
36            if $ENV{FIG_VERBOSE};
37    
38      my $fig;      my $fig;
39      if ($low_level && ($low_level =~ /sprout/i))      if ($low_level && ($low_level =~ /sprout/i))
# Line 469  Line 471 
471    
472      if ($genome eq $newG)      if ($genome eq $newG)
473      {      {
474          my $c;          my $count = 0;
475          open(B, "<$newGdir/Subsystems/subsystems");          my ($entry, $vc);
476          while (<B>)          open(SUBSYSTEMS, "<$newGdir/Subsystems/subsystems");
477          {          while (defined($entry = <SUBSYSTEMS>))
478              chomp;          {
479              my($ss, $vc) = split(/\t/);              chomp $entry;
480              $c++ if $vc != -1;              (undef, $vc) = split /\t/, $entry;
481                if ($vc != -1) { ++$count; }
482          }          }
483          close(B);          close(SUBSYSTEMS);
484          return $c;          return $count;
485      }      }
486      else      else
487      {      {

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3