my ($record, $id) = @_;
my %marc = (); $marc{isbns} = [];
+ # reset misc score
+ $conf->{misc_score} = 999;
+
# id, stringified
$marc{id} = $id->as_string($conf->{subfield});
push @score, $scores_code{$_}->($marc, $record);
$json .= $_ . ':' . $score[-1] . ',';
}
- chop($json); # get rid of the trailing comma
+ # add misc score
+ $json .= 'misc:' . $conf->{misc_score};
$json .= '}';
- my $compact = join('', @score);
+ my $compact = join('', @score, $conf->{misc_score});
$marc->{score} = "$compact\t$json";
}