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

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.35, Tue Sep 28 20:39:39 2004 UTC revision 1.36, Wed Oct 6 21:37:02 2004 UTC
# Line 185  Line 185 
185      my($class, $name, $fig, $create) = @_;      my($class, $name, $fig, $create) = @_;
186    
187      my $ssa_dir = get_dir_from_name($name);      my $ssa_dir = get_dir_from_name($name);
   
188      #      #
189      # For loading, the subsystem directory must already exist.      # For loading, the subsystem directory must already exist.
190      #      #
# Line 195  Line 194 
194          #           warn "Subsystem $name does not exist\n";          #           warn "Subsystem $name does not exist\n";
195          return undef;          return undef;
196      }      }
   
197      my $self = {      my $self = {
198          dir => $ssa_dir,          dir => $ssa_dir,
199          name => $name,          name => $name,
# Line 1772  Line 1770 
1770      #      #
1771      # his_roles = list of role indices corresponding to the remote roles.      # his_roles = list of role indices corresponding to the remote roles.
1772      #      #
1773        if ($cols->[0] eq "all")
1774        {
1775            $cols = [$ss->get_roles];
1776        }
1777    
1778      my @his_roles;      my @his_roles;
1779    
1780      for my $his_role (@$cols)      for my $his_role (@$cols)

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3