removed ranking normalization as it is entirely useless to do this on the server...
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sun, 11 Feb 2007 19:28:53 +0000 (19:28 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sun, 11 Feb 2007 19:28:53 +0000 (19:28 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@6927 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm

index 5077ee3..4d0ca95 100644 (file)
@@ -2233,17 +2233,18 @@ sub biblio_search_multi_class_fts {
        
        $log->debug("Search yielded ".scalar(@$recs)." results.",DEBUG);
 
-       my $max = 0;
-       $max = 1 if (!@$recs);
-       for (@$recs) {
-               $max = $$_[1] if ($$_[1] > $max);
-       }
+#      my $max = 0;
+#      $max = 1 if (!@$recs);
+#      for (@$recs) {
+#              $max = $$_[1] if ($$_[1] > $max);
+#      }
 
        my $count = scalar(@$recs);
        for my $rec (@$recs[$offset .. $offset + $limit - 1]) {
                next unless ($$rec[0]);
                my ($mrid,$rank) = @$rec;
-               $client->respond( [$mrid, sprintf('%0.3f',$rank/$max), $count] );
+#              $client->respond( [$mrid, sprintf('%0.3f',$rank/$max), $count] );
+               $client->respond( [$mrid, sprintf('%0.3f',$rank), $count] );
        }
        return undef;
 }