[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.18, Mon Jan 15 21:44:02 2007 UTC revision 1.19, Fri Feb 9 22:45:44 2007 UTC
# Line 150  Line 150 
150      return $slist;      return $slist;
151  }  }
152    
153    sub peg_to_subsystems
154    {
155        my($self, $peg) = @_;
156    
157        my $variant = $self->{_ss_variants};
158        my %sub = map { $_ => 1 }
159                  grep { $variant->{$_} !~ /^(-1)|0$/ }
160                  map { $_->[0] }
161                  $self->peg_to_roles_in_subsystems($peg);
162        return sort keys(%sub);
163    }
164    
165  sub peg_to_roles_in_subsystems  sub peg_to_roles_in_subsystems
166  {  {
167      my($self,$peg) = @_;      my($self,$peg) = @_;

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3