From: Dan Scott <dscott@laurentian.ca>
Date: Tue, 18 Oct 2011 12:51:24 +0000 (-0400)
Subject: LP785374: rank() to rank_cd() for relevancy ranking
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=refs%2Fheads%2Fuser%2Fdbs%2Flp785374-rank_2_rank_cd;p=working%2FEvergreen.git

LP785374: rank() to rank_cd() for relevancy ranking

This change was originally implemented at Evergreen Indiana by Steve
Callender of Equinox, to address problems with relevancy sorting by
title once the entries from search.relevance_adjustment were deleted for
performance reasons. See LP785374 for more details.

Signed-off-by: Dan Scott <dscott@laurentian.ca>
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
index c1fb759811..a730f16f26 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Driver/Pg/QueryParser.pm
@@ -841,7 +841,7 @@ sub tsquery {
 sub rank {
     my $self = shift;
     return $self->{rank} if ($self->{rank});
-    return $self->{rank} = 'rank(' . $self->table_alias . '.index_vector, ' . $self->table_alias . '.tsq)';
+    return $self->{rank} = 'rank_cd(' . $self->table_alias . '.index_vector, ' . $self->table_alias . '.tsq,14)';
 }