Changeset 33415 for branches/meh_branches/ppstack_test/tools/refstacktool

Timestamp:

Mar 5, 2012, 5:19:48 PM (14 years ago)

Author:

mhuber

Message:

merging latest r33407 trunk changes to meh_branches/ppstack_test

Location:

branches/meh_branches/ppstack_test

Files:

• . (modified) (1 prop)
• tools/refstacktool (modified) (1 diff)

branches/meh_branches/ppstack_test/tools/refstacktool

@@ -103 +103 @@
 my $n_exps = 0;
 my $exp_id_last = 0;
+
+my %exp_hash;
 while (my $exp = $stmt->fetchrow_hashref()) {
     # avoid exposures processed multiple times
     my $exp_id = $exp->{exp_id};
-    next if $exp_id_last == $exp_id;
+
+    if ($exp_hash{$exp_id}) {
+#        print "skipping duplicate for $exp_id\n";
+        next;
+    }
+#    This doesn't work since we are ordered by fwhm_major
+#    if ($exp_id_last == $exp_id) {
+#        print "skipping duplicate for $exp_id\n";
+#    }
     $exp_id_last = $exp_id;
+
+    $exp_hash{$exp_id} = 1;
 
     $n_exps++;