[open-ils-commits] r20067 - branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2011-04-13 12:13:14 -0400 (Wed, 13 Apr 2011)
New Revision: 20067

Modified:
   branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
Log:
Protect search against all-deleted bibs by pinning the estimation ratios in that case

Modified: branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
===================================================================
--- branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm	2011-04-13 15:34:52 UTC (rev 20066)
+++ branches/rel_2_0/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm	2011-04-13 16:13:14 UTC (rev 20067)
@@ -2657,10 +2657,10 @@
     my $delete_adjusted_total = $total - ( $total * $deleted_ratio );
 
     my $exclusion_ratio = $excluded / $checked;
-    my $delete_adjusted_exclusion_ratio = $excluded / ($checked - $deleted);
+    my $delete_adjusted_exclusion_ratio = $checked - $deleted ? $excluded / ($checked - $deleted) : 1;
 
     my $inclusion_ratio = $visible / $checked;
-    my $delete_adjusted_inclusion_ratio = $visible / ($checked - $deleted);
+    my $delete_adjusted_inclusion_ratio = $checked - $deleted ? $visible / ($checked - $deleted) : 0;
 
     return {
         exclusion                   => int($delete_adjusted_total - ( $delete_adjusted_total * $exclusion_ratio )),