fix div-by-0 in ranking
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 28 Feb 2006 21:49:42 +0000 (21:49 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 28 Feb 2006 21:49:42 +0000 (21:49 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@3223 dcc99617-32d9-48b4-a31d-7c20da2025e4

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

index 3e00baf..2b04018 100644 (file)
@@ -1209,7 +1209,7 @@ sub postfilter_search_class_fts {
 
        my $max = 0;
        for (@$recs) {
-               $max = $$_[3] if ($$_[3] > $max);
+               $max = $$_[1] if ($$_[1] > $max);
        }
 
        my $count = scalar(@$recs);