[Bio] / Sprout / Sapling.pm Repository:
ViewVC logotype

Diff of /Sprout/Sapling.pm

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

revision 1.47, Thu Oct 6 19:05:55 2011 UTC revision 1.48, Thu Oct 6 19:21:18 2011 UTC
# Line 200  Line 200 
200      # Get the parameters.      # Get the parameters.
201      my ($class, %options) = @_;      my ($class, %options) = @_;
202      # Get the options.      # Get the options.
203      my $loadDirectory = $options{loadDirectory} || $FIG_Config::saplingData ||      if (! $options{loadDirectory}) {
204            $options{loadDirectory} = $FIG_Config::saplingData ||
205                          "$FIG_Config::fig/SaplingData";                          "$FIG_Config::fig/SaplingData";
206      my $dbd = $options{DBD} || "$loadDirectory/SaplingDBD.xml";      }
207        my $dbd = $options{DBD} || "$options{loadDirectory}/SaplingDBD.xml";
208      my $dbName = $options{dbName} || $FIG_Config::saplingDB || "nmpdr_sapling";      my $dbName = $options{dbName} || $FIG_Config::saplingDB || "nmpdr_sapling";
209      my $userData = $options{userData} || "seed/";      my $userData = $options{userData} || "seed/";
210      my $dbhost = $options{dbhost} || $FIG_Config::saplingHost || "localhost";      my $dbhost = $options{dbhost} || $FIG_Config::saplingHost || "localhost";

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3