Index: trunk/ippScripts/scripts/publish_file.pl
===================================================================
--- trunk/ippScripts/scripts/publish_file.pl	(revision 26976)
+++ trunk/ippScripts/scripts/publish_file.pl	(revision 26986)
@@ -82,4 +82,5 @@
 my ($dsFile, $dsFileName) = tempfile("/tmp/publish.$pub_id.ds.XXXX", UNLINK => !$save_temps );
 
+my $comment;                    # Comment for exposure
 if ($stage eq 'camera') {
     my $command =  "camtool -processedexp -cam_id $stage_id";
@@ -109,4 +110,5 @@
     my $astrom = sqrt($comp->{sigma_ra}**2 + $comp->{sigma_dec}**2);
     my $name = "cam_$cam_id";
+    $comment = $comp->{comment};
 
     if ($product eq "MONET") {
@@ -157,4 +159,6 @@
         my $path_base = $comp->{path_base}; # Base name for file
         next if defined $comp->{quality} and $comp->{quality} > 0;
+        print "Warning: mis-matched comments\n" if defined $comment and $comment ne $comp->{comment};
+        $comment = $comp->{comment} unless defined $comment;
 
         (carp "Bad zpt_obs or exp_time for component" and next) if not defined $comp->{zpt_obs} or not defined $comp->{exp_time};
@@ -234,4 +238,5 @@
 unless ($no_update) {
     my $command = "$dsreg --add $stage.$stage_id --copy --abspath --product $product --type $product --list $dsFileName";
+    $command .= " --ps0 \"$comment\"" if defined $comment;
 
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =