From e71cc1756455692cfce5e881ebaf6229fe35f36d Mon Sep 17 00:00:00 2001 From: miker Date: Mon, 8 Sep 2008 18:04:45 +0000 Subject: [PATCH] back/forward porting grace testing (0 grace allowed) git-svn-id: svn://svn.open-ils.org/ILS/branches/rel_1_2@10556 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../src/perlmods/OpenILS/Application/Storage/Publisher/action.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm index 4077203648..513e53eab7 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm @@ -94,7 +94,11 @@ sub overdue_circs { 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 * -- 2.11.0