FIX -- making grace period "soft"

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4740 dcc99617-32d9-48b4-a31d-7c20da2025e4

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 ce8b6c7..4307b29 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
@@ -482,8 +482,8 @@ sub generate_fines {
                                #$last_fine += $fine_interval * $grace;
                        }
        
-                       my $pending_fine_count = int( ($now - $last_fine) / $fine_interval ); 
-                       unless($pending_fine_count) {
+                       my $pending_fine_count = int( ($now - $last_fine) / $fine_interval ) - 1; 
+                       if ($pending_fine_count < 1) {
                                $client->respond( "\tNo fines to create.  " );
                                if ($grace && $now < $due + $fine_interval * $grace) {
                                        $client->respond( "Still inside grace period of: ". seconds_to_interval( $fine_interval * $grace)."\n" );