[open-ils-commits] r9014 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher

[svn at svn.open-ils.org]

Author: miker
Date: 2008-03-14 12:47:52 -0400 (Fri, 14 Mar 2008)
New Revision: 9014

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
Log:
protect against 0 checked

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm	2008-03-14 15:48:57 UTC (rev 9013)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm	2008-03-14 16:47:52 UTC (rev 9014)
@@ -2470,7 +2470,7 @@
     my $excluded = $$summary_row{excluded};
 
     my $estimate = $visible;
-    if ( $total > $checked ) {
+    if ( $total > $checked && $checked ) {
         my $deleted_ratio = $deleted / $checked;
         my $exclution_ratio = $excluded / $checked;
         my $delete_adjusted_total = $total - ( $total * $deleted_ratio );