Changeset 34480 for trunk

Timestamp:

Sep 26, 2012, 4:11:48 PM (14 years ago)

Author:

Serge CHASTEL

Message:

ppMops new parameters / bug fix - testing

File:

• trunk/ippScripts/scripts/publish_file.pl (modified) (3 diffs)

trunk/ippScripts/scripts/publish_file.pl

@@ -169 +169 @@
     my %negative;               # Data for negative diff detections
     foreach my $comp ( @$components ) {
-        my $path_base = $comp->{path_base}; # Base name for file
+        my $path_base = $comp->{path_base}; # Base name for file
         if (!$need_magic and $comp->{magicked}) {
             # This client is authorized to receive uncensored detections
@@ -241 +241 @@
                      difftype => $difftype,
                      sky => $cam_comp->{bg},
-                     shutoutc => $comp->{dateobs},
+                     shutoutc => $reg_comp->{dateobs},
         };
 
@@ -279 +279 @@
                          difftype => $difftype,
                          sky => $cam_comp->{bg},
-                         shutoutc => $comp->{dateobs},
+                         shutoutc => $reg_comp->{dateobs},
             };