[open-ils-commits] r10347 - branches/rel_1_2_3/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher

[svn at svn.open-ils.org]

Author: miker
Date: 2008-08-12 22:22:03 -0400 (Tue, 12 Aug 2008)
New Revision: 10347

Modified:
   branches/rel_1_2_3/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
Log:
protect against a 0 grace period

Modified: branches/rel_1_2_3/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
===================================================================
--- branches/rel_1_2_3/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2008-08-13 02:00:00 UTC (rev 10346)
+++ branches/rel_1_2_3/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2008-08-13 02:22:03 UTC (rev 10347)
@@ -94,7 +94,11 @@
 
 	my $c_t = action::circulation->table;
 
-	$grace = " - ($grace * (fine_interval))" if ($grace);
+    if ($grace) {
+        $grace = " - ($grace * (fine_interval))" if ($grace);
+    } else {
+        $grace = '';
+    }
 
 	my $sql = <<"	SQL";
 		SELECT	*