Index: trunk/ippScripts/scripts/publish_file.pl
===================================================================
--- trunk/ippScripts/scripts/publish_file.pl	(revision 25072)
+++ trunk/ippScripts/scripts/publish_file.pl	(revision 25074)
@@ -82,4 +82,5 @@
 my %zp;                         # Zero points
 my %exp_id;                     # Exposure identifiers
+my %exp_name;                   # Exposure names
 {
     my $command;                # Command to run
@@ -118,6 +119,8 @@
             $zp{"$skycell_id.pos"} = $zp;
             $zp{"$skycell_id.neg"} = $zp if defined $comp->{bothways} and $comp->{bothways};
-            $exp_id{"$skycell_id.pos"} = $comp->{exp1};
-            $exp_id{"$skycell_id.neg"} = $comp->{exp2} if defined $comp->{bothways} and $comp->{bothways};
+            $exp_id{"$skycell_id.pos"} = $comp->{exp_id_1};
+            $exp_id{"$skycell_id.neg"} = $comp->{exp_id_2} if defined $comp->{bothways} and $comp->{bothways};
+            $exp_name{"$skycell_id.pos"} = $comp->{exp_name_1};
+            $exp_name{"$skycell_id.neg"} = $comp->{exp_name_2} if defined $comp->{bothways} and $comp->{bothways};
         } elsif ($stage eq 'camera') {
             my $cam_id = $comp->{cam_id};
@@ -125,4 +128,5 @@
             $zp{$cam_id} = $zp;
             $exp_id{$cam_id} = $comp->{exp_id};
+            $exp_name{$cam_id} = $comp->{exp_name};
         }
     }
@@ -140,4 +144,5 @@
     my $zp = $zp{$comp};
     my $exp_id = $exp_id{$comp};
+    my $exp_name = $exp_name{$comp};
     if ($product eq "IPP-MOPS") {
         my $outuri = "$outroot.$comp.fits";
@@ -145,5 +150,5 @@
             &my_die( "Unable to resolve output file $outuri", $pub_id, $PS_EXIT_SYS_ERROR);
 
-        my $command = "$ppMops $file $zp $exp_id $out";
+        my $command = "$ppMops $file $zp $exp_id $exp_name $out";
         my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
             run(command => $command, verbose => $verbose);