fix div-by-0 in ranking

git-svn-id: svn://svn.open-ils.org/ILS/trunk@3236 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
index 2d638df..f97fa01 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
@@ -1208,6 +1208,7 @@ sub postfilter_search_class_fts {
        $log->debug("Search yielded ".scalar(@$recs)." results.",DEBUG);
 
        my $max = 0;
+       $max = 1 if (!@$recs);
        for (@$recs) {
                $max = $$_[1] if ($$_[1] > $max);
        }
@@ -1493,6 +1494,7 @@ sub postfilter_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);
        }
@@ -1731,6 +1733,7 @@ sub postfilter_Z_search_class_fts {
        $log->debug("Search yielded ".scalar(@$recs)." results.",DEBUG);
 
        my $max = 0;
+       $max = 1 if (!@$recs);
        for (@$recs) {
                $max = $$_[2] if ($$_[2] > $max);
        }