Index: /tags/ipp-20110218/ippScripts/scripts/register_imfile.pl
===================================================================
--- /tags/ipp-20110218/ippScripts/scripts/register_imfile.pl	(revision 30710)
+++ /tags/ipp-20110218/ippScripts/scripts/register_imfile.pl	(revision 30711)
@@ -181,4 +181,5 @@
 if (uc(&value_for_flag ($cmdflags, "NULL", "-exp_type"))  eq "NULL") { &my_die_for_add ("exp_type  not found", $exp_id, $tmp_exp_name, $tmp_class_id, $uri, $PS_EXIT_CONFIG_ERROR); }
 my $dateobs   = &value_for_flag($cmdflags, 0.0, "-dateobs");
+my $exp_type  = &value_for_flag($cmdflags, "NULL", "-exp_type");
 
 my $command = "$regtool -addprocessedimfile";