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

[svn at svn.open-ils.org]

Author: miker
Date: 2008-09-08 14:04:45 -0400 (Mon, 08 Sep 2008)
New Revision: 10556

Modified:
   branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
Log:
back/forward porting grace testing (0 grace allowed)

Modified: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2008-09-08 17:58:07 UTC (rev 10555)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm	2008-09-08 18:04:45 UTC (rev 10556)
@@ -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	*