[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.113, Tue Jun 8 20:26:23 2004 UTC revision 1.114, Thu Jun 10 13:39:55 2004 UTC
# Line 4172  Line 4172 
4172      return ();      return ();
4173  }  }
4174    
4175    sub role_to_maps
4176    {
4177        my($self, $role) = @_;
4178    
4179        return $self->ec_to_maps($role);
4180    }
4181    
4182  =pod  =pod
4183    
# Line 5460  Line 5466 
5466      return $sub;      return $sub;
5467  }  }
5468    
5469    sub subsystem_to_roles
5470    {
5471        my($self, $subsystem) = @_;
5472    
5473        my $sub = $self->get_subsystem($subsystem);
5474    
5475        return () unless $sub;
5476    
5477        return $sub->get_roles();
5478    }
5479    
5480  sub pegs_in_subsystem_cell  sub pegs_in_subsystem_cell
5481  {  {
5482      my($self, $subsystem, $genome, $role) = @_;      my($self, $subsystem, $genome, $role) = @_;
# Line 5571  Line 5588 
5588      }      }
5589  }  }
5590    
5591    #
5592    # Return just the list of subsystems the peg appears in.
5593    #
5594    
5595    sub peg_to_subsystems
5596    {
5597        my($self, $peg) = @_;
5598    
5599        my @sublist = $self->subsystems_for_peg($peg);
5600    
5601        return map { $_->[0] } @sublist;
5602    }
5603    
5604    
5605  ################################# PEG Translation  ####################################  ################################# PEG Translation  ####################################
5606    

Legend:
Removed from v.1.113  
changed lines
  Added in v.1.114

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3