[Bio] / FigKernelScripts / check_sims_basic.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/check_sims_basic.pl

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

revision 1.7, Mon Dec 5 18:56:37 2005 UTC revision 1.8, Mon Sep 4 20:21:31 2006 UTC
# Line 115  Line 115 
115  unless ($outdir)  { $outfh = \*STDOUT; }  unless ($outdir)  { $outfh = \*STDOUT; }
116    
117  opendir(ORGS, "$FIG_Config::organisms") || die "Could not open dir $FIG_Config::organisms";  opendir(ORGS, "$FIG_Config::organisms") || die "Could not open dir $FIG_Config::organisms";
118  @env = grep s{^(9999999\.\d+)}{$FIG_Config::organisms/$1/Features/peg/fasta}, readdir(ORGS);  @env = grep s{^(\d+\.\d+)}{$FIG_Config::organisms/$1/Features/peg/fasta}, grep {$fig->is_environmental($_)} readdir(ORGS);
119  closedir(ORGS) || die "Could not close dir $FIG_Config::organisms";  closedir(ORGS) || die "Could not close dir $FIG_Config::organisms";
120    
121  foreach $file ($nr, @env)  foreach $file ($nr, @env)

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3