[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.51, Sat Feb 9 20:34:14 2008 UTC revision 1.52, Thu Mar 13 22:28:19 2008 UTC
# Line 459  Line 459 
459      }      }
460  }  }
461    
462    sub get_genome_subsystem_count
463    {
464        my($self,$genome) = @_;
465    
466        my $fig     = $self->{_fig};
467        my $newG    = $self->{_genome};
468        my $newGdir = $self->{_orgdir};
469    
470        if ($genome eq $newG)
471        {
472            my $c;
473            open(B, "<$newGdir/Subsystems/subsystems");
474            while (<B>)
475            {
476                chomp;
477                my($ss, $vc) = split(/\t/);
478                $c++ if $vc != -1;
479            }
480            close(B);
481            return $c;
482        }
483        else
484        {
485            return $fig->get_genome_subsystem_count($genome);
486        }
487    }
488    
489  sub orgname_of_orgid {  sub orgname_of_orgid {
490      my($self,$genome) = @_;      my($self,$genome) = @_;
491    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3