Index: trunk/ippScripts/scripts/ipp_serial_register.pl
===================================================================
--- trunk/ippScripts/scripts/ipp_serial_register.pl	(revision 14354)
+++ trunk/ippScripts/scripts/ipp_serial_register.pl	(revision 14368)
@@ -13,9 +13,7 @@
 
 my ($dbname,			# Database name to use
-    $workdir,			# Working directory
     );
 GetOptions(
 	   'dbname|d=s'  => \$dbname,
-	   'workdir|w=s' => \$workdir,
 ) or pod2usage( 2 );
 
@@ -54,14 +52,15 @@
 
 	    foreach my $item (@$list) {
-		my $exp_tag = $item->{exp_tag};
-		my $class = $item->{class};
-		my $class_id = $item->{class_id};
+		my $exp_id = $item->{exp_id};
+		my $exp_name = $item->{tmp_exp_name};
+		my $class_id = $item->{tmp_class_id};
+		my $workdir = $item->{workdir};
 		my $uri = $item->{uri};
 		
-		my $command = "$register_imfile --exp_tag $exp_tag --class $class --class_id $class_id --uri $uri --dbname $dbname";
+		my $command = "$register_imfile --exp_id $exp_id --tmp_class_id $class_id --tmp_exp_name $exp_name --uri $uri --dbname $dbname";
 		$command .= " --workdir $workdir" if defined $workdir;
 		my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
 		    run( command => $command, verbose => 1 );
-		die "Unable to do phase 0 imfile processing on $exp_tag $class_id: $error_code\n" if not $success;
+		die "Unable to do phase 0 imfile processing on $exp_name $class_id: $error_code\n" if not $success;
 	    }
 
@@ -93,7 +92,9 @@
 
 	    foreach my $item (@$list) {
-		my $exp_tag = $item->{exp_tag};
+		my $exp_tag = $item->{tmp_exp_name} . '.' . $item->{exp_id};
+		my $exp_id = $item->{exp_id};
+		my $workdir = $item->{workdir};
 		
-		my $command = "$register_exp --exp_tag $exp_tag --dbname $dbname";
+		my $command = "$register_exp --exp_tag $exp_tag --exp_id $exp_id --dbname $dbname";
 		$command .= " --workdir $workdir" if defined $workdir;
 		my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =