From: Shawn Boyette <sboyette@esilibrary.com>
Date: Tue, 9 Dec 2008 04:08:25 +0000 (+0000)
Subject: compress: no, %used is still needed to suppress the varying fps on a subordinate... 
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=88d05819fa02d6312e2cb18a70dc8bfc329ffda5

compress: no, %used is still needed to suppress the varying fps on a subordinate record (its original purpose, sigh)
---

diff --git a/compress_fingerprints b/compress_fingerprints
index c996ef7..f0b9374 100755
--- a/compress_fingerprints
+++ b/compress_fingerprints
@@ -95,7 +95,7 @@ Writes out a 2-column file of lead and subordinate records.
 =cut
 
 sub dump_records {
-#    my %used = ();
+    my %used = ();
     open OUT, '>', $conf->{output}
       or die "Can't open ", $conf->{output}, "$!\n";
     for my $id (keys %recs) {
@@ -104,8 +104,8 @@ sub dump_records {
         for my $sha1 ( keys %{$recs{$id}} ) {
             for my $subid ( @{$fps{$sha1}{recs}} ) {
                 next if ($id == $subid);
-#                next if defined $used{$subid};
-#                $used{$subid} = 1;
+                next if defined $used{$subid};
+                $used{$subid} = 1;
                 print OUT "$id\t$subid\n";
             }
         }