[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.49, Thu Mar 25 13:48:27 2004 UTC revision 1.50, Thu Mar 25 17:10:50 2004 UTC
# Line 4506  Line 4506 
4506      return @exchangable;      return @exchangable;
4507  }  }
4508    
4509    sub all_subsystems {
4510    
4511        my @subsystems = ();
4512        if (opendir(SUB,"$FIG_Config::data/Subsystems"))
4513        {
4514            push(@subsystems,grep { ($_ !~ /^\./) } readdir(SUB));
4515            closedir(SUB);
4516        }
4517        return @subsystems;
4518    }
4519    
4520  sub subsystem_version {  sub subsystem_version {
4521      my $ssa = (@_ == 1) ? $_[0] : $_[1];      my $ssa = (@_ == 1) ? $_[0] : $_[1];
4522      $ssa =~ s/ /_/g;      $ssa =~ s/ /_/g;

Legend:
Removed from v.1.49  
changed lines
  Added in v.1.50

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3