projects
/
migration-tools.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
(parent:
08a5d79
)
compress: no, %used is still needed to suppress the varying fps on a subordinate...
author
Shawn Boyette
<sboyette@esilibrary.com>
Tue, 9 Dec 2008 04:08:25 +0000 (
04:08
+0000)
committer
Shawn Boyette
<sboyette@esilibrary.com>
Tue, 9 Dec 2008 04:08:25 +0000 (
04:08
+0000)
compress_fingerprints
patch
|
blob
|
history
diff --git
a/compress_fingerprints
b/compress_fingerprints
index
c996ef7
..
f0b9374
100755
(executable)
--- 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";
}
}