Index: trunk/ippScripts/scripts/phase0_exp.pl
===================================================================
--- trunk/ippScripts/scripts/phase0_exp.pl	(revision 11151)
+++ trunk/ippScripts/scripts/phase0_exp.pl	(revision 11297)
@@ -30,4 +30,5 @@
     'caches'        => \$cache,
     'exp_tag|e=s'   => \$exptag,
+    'dbname|d=s'    => \$dbname,# Database name    
     'no-update'     => \$no_update
 ) or pod2usage( 2 );
@@ -96,4 +97,5 @@
 {
     my $command = "$p0tool -processedimfile -exp_tag $exptag";
+    $command .= " -dbname $dbname" if defined $dbname;
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         cache_run(command => $command, verbose => 1);
@@ -199,4 +201,6 @@
     }
 
+    push @command, "-dbname", $dbname if defined $dbname;
+
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         cache_run(command => \@command, verbose => 1);
@@ -243,5 +247,7 @@
     my $exit_code = $_[1];
     if ($exp_tag) {
-        system ("$p0tool -addprocessedexp -exp_tag $exp_tag -code $exit_code");
+	my $command = "$p0tool -addprocessedexp -exp_tag $exp_tag -code $exit_code";
+	$command .= " -dbname $dbname" if defined $dbname;
+        system($command);
     }
     exit $exit_code;