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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.769, Sat May 9 15:30:01 2009 UTC revision 1.770, Sat May 9 16:25:33 2009 UTC
# Line 17481  Line 17481 
17481      return @subsystems;      return @subsystems;
17482  }  }
17483    
17484    sub variant_code {
17485        my($self,$subsys,$genome) = @_;
17486    
17487        if (my $subsystem = new Subsystem( $subsys, $self, 0 ))
17488        {
17489            my $idx = $subsystem->get_genome_index($genome);
17490            return $subsystem->get_variant_code($idx);
17491        }
17492        else
17493        {
17494            print "$subsys is probably not a subsystem or $genome is not in it\n";
17495        }
17496    }
17497    
17498  =head3 all_usable_subsystems  =head3 all_usable_subsystems
17499    
17500      my @names = $fig->all_usable_subsystems();      my @names = $fig->all_usable_subsystems();

Legend:
Removed from v.1.769  
changed lines
  Added in v.1.770

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3