[Bio] / Sprout / SimLoad.pl Repository:
ViewVC logotype

Diff of /Sprout/SimLoad.pl

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

revision 1.9, Thu Feb 2 21:30:05 2006 UTC revision 1.10, Mon Feb 13 15:42:48 2006 UTC
# Line 316  Line 316 
316  my $inDirectoryTree = ($arguments[0] ? Cwd::abs_path($arguments[0]) : "$FIG_Config::data/CloseStrainSets");  my $inDirectoryTree = ($arguments[0] ? Cwd::abs_path($arguments[0]) : "$FIG_Config::data/CloseStrainSets");
317  # Check to see if we need to create the database.  # Check to see if we need to create the database.
318  if ($options->{createDB}) {  if ($options->{createDB}) {
319      Trace("Creating database.") if T(2);      my $dbname = SimBlocks::DBName();
320      DBKernel::CreateDB($FIG_Config::simBlocksDB);      Trace("Creating database $dbname.") if T(2);
321        DBKernel::CreateDB($dbname);
322  }  }
323  # Get the output directory.  # Get the output directory.
324  my $outDirectory = $FIG_Config::simBlocksData;  my $outDirectory = $FIG_Config::simBlocksData;
325    # Default it if it isn't present.
326    if (! $outDirectory) {
327        $outDirectory = "$FIG_Config::fig/BlockData";
328    }
329  # Insure that it exists.  # Insure that it exists.
330  if (! -d $outDirectory) {  if (! -d $outDirectory) {
331      Trace("Creating output directory $outDirectory.") if T(2);      Trace("Creating output directory $outDirectory.") if T(2);

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3