fix div-by-0 in ranking
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 1 Mar 2006 22:47:14 +0000 (22:47 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 1 Mar 2006 22:47:14 +0000 (22:47 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@3236 dcc99617-32d9-48b4-a31d-7c20da2025e4

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

index 2d638df..f97fa01 100644 (file)
@@ -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);
        }