From: Shawn Boyette <sboyette@esilibrary.com>
Date: Thu, 20 Nov 2008 17:49:54 +0000 (+0000)
Subject: adding compact score
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=97ab16da12ea0b79d9c19bae61b25754818cf7db

adding compact score
---

diff --git a/fingerprinter b/fingerprinter
index 346c081..020c76c 100755
--- a/fingerprinter
+++ b/fingerprinter
@@ -262,9 +262,11 @@ sub score_marc {
     }
 
     # put score in marc hash
-    $marc->{score} = join('', '{oclc:', $score[0], ',dlc:', $score[1],
-                          ',num_650:', $score[2], ',num_tags:', $score[3],
-                          ',enc_lvl:', $score[4], '}');
+    my $json = join('', '{oclc:', $score[0], ',dlc:', $score[1],
+                    ',num_650:', $score[2], ',num_tags:', $score[3],
+                    ',enc_lvl:', $score[4], '}');
+    my $compact = join('', @score);
+    $marc->{score} = "$compact\t$json";
 }
 
 =head2 dump_fingerprints