From 12a3338a1cd3f320ba7832b1859e3007abf7e92a Mon Sep 17 00:00:00 2001
From: Shawn Boyette <sboyette@esilibrary.com>
Date: Mon, 8 Dec 2008 22:24:02 +0000
Subject: [PATCH] compress: $recs{$id}{$sha} was being set to lead in unknown fp block

---
 compress_fingerprints |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/compress_fingerprints b/compress_fingerprints
index 9b3d832..767dada 100755
--- a/compress_fingerprints
+++ b/compress_fingerprints
@@ -23,7 +23,9 @@ while (<FP>) {
     my $fp = populate_fingerprint(@fields);
     rank_fingerprint($fp);
 }
-print "Writing results ($count lead records) to disk\n";
+print "$total fingerprints processed\n";
+print "$count records set as leads\n"'
+print "Writing matchset to disk\n";
 dump_records();
 
 
@@ -64,7 +66,7 @@ sub rank_fingerprint {
             $fps{$sha1} = { lead => { id    => $id,
                                       score => $fp->{compact} },
                             recs => [ $id ] };
-            $recs{$id}{$sha1}{lead} = 1;
+            $recs{$id}{lead} = 1;
             $count++;
         } else {
             # have seen this fp. push record id onto matchlist
-- 
1.7.2.5