Changeset 31519 for trunk/ippScripts/scripts/lap_science.pl

Timestamp:

May 10, 2011, 6:24:56 PM (15 years ago)

Author:

watersc1

Message:

Fix exposures that claim to be pairwise, but do not have a valid pair_id. This should fix the ghost diff bug.

File:

• trunk/ippScripts/scripts/lap_science.pl (modified) (4 diffs)

trunk/ippScripts/scripts/lap_science.pl

@@ -460 +460 @@
         my $companion;
 
-        if ($exposure->{pair_id}) { # Load companion exposure information
-            if (exists($match_hash{$exposure->{chip_id}})) {
+        if ($exposure->{pairwise}) {
+            # Load companion exposure information
+            if (($exposure->{pair_id})&&(exists($match_hash{$exposure->{chip_id}}))) {
                 $companion = ${ $exposures }[$match_hash{$exposure->{chip_id}}]; # Match!
+            }
+            else { # We claimed to be pairwise, but do not have a valid pair_id.
+                $exposure->{pairwise} = 0;
+                $exposure->{private} = 1;
+                &update_this_exposure($exposure);
             }
         }
@@ -500 +506 @@
             $is_bad_quality = 1;
         }
+        # If we've detected a bad quality exposure, drop it, and tell the companion.
         if ($is_bad_quality) {
             unless ((defined($exposure->{diffRun_state}))&&
@@ -517 +524 @@
 
         }
-
+        
         if  ($exposure->{data_state} eq 'drop') { # This exposure is impossible, so fudge the counts so we get through.
             $can_qstack ++;
@@ -785 +792 @@
         }
         my $retry_command;
-        if ($exposure->{pairwise}) { # warpwarp
+        if (($exposure->{pairwise})&&(defined(${ $exposures }[$match_hash{$exposure->{chip_id}}]))) { # warpwarp
             my $companion = ${ $exposures }[$match_hash{$exposure->{chip_id}}];
             $command .= " -definewarpwarp ";