Index: /trunk/ippScripts/scripts/register_imfile.pl
===================================================================
--- /trunk/ippScripts/scripts/register_imfile.pl	(revision 30216)
+++ /trunk/ippScripts/scripts/register_imfile.pl	(revision 30217)
@@ -265,5 +265,5 @@
         $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
         &my_die_for_update("Unable to perform regtool: $error_code",
-                           $exp_id, $exp_name, $class_id, $PS_EXIT_SYS_ERROR);
+                           $exp_id, $class_id, $PS_EXIT_SYS_ERROR);
     }
 
@@ -279,5 +279,5 @@
             my $list = parse_md_list( $mdcParser->parse( join( "\n", @single ) ) );
             &my_die_for_update("Unable to parse output from regtool",
-                               $exp_id, $exp_name, $class_id, $PS_EXIT_SYS_ERROR) unless
+                               $exp_id, $class_id, $PS_EXIT_SYS_ERROR) unless
                                    defined $list;
             push @{ $exposures }, @$list;
@@ -320,6 +320,6 @@
             unless ($success) {
                 $error_code = (($error_code >> 8) or $PS_EXIT_PROG_ERROR);
-                warn ("Unable to perform ipp_apply_burntool_single.pl: $error_code");
-                exit($error_code);
+                &my_die_for_update("Unable to perform ipp_apply_burntool_single.pl: $error_code",
+                               $exp_id, $class_id, $PS_EXIT_SYS_ERROR);
             }
         }
@@ -396,10 +396,6 @@
     my $msg = shift; # Warning message on die
     my $exp_id = shift;
-    my $exp_name = shift;
     my $class_id = shift;
-    my $uri = shift;
     my $exit_code = shift;
-
-    # for failed imfiles, we insert UNKNOWN for inst, telescope, class_id
 
     $exit_code = $PS_EXIT_PROG_ERROR unless defined $exit_code;