From 97ab16da12ea0b79d9c19bae61b25754818cf7db Mon Sep 17 00:00:00 2001 From: Shawn Boyette Date: Thu, 20 Nov 2008 17:49:54 +0000 Subject: [PATCH] adding compact score --- fingerprinter | 8 +++++--- 1 files changed, 5 insertions(+), 3 deletions(-) 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 -- 1.7.2.5