protect against a 0 grace period
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 13 Aug 2008 02:22:07 +0000 (02:22 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 13 Aug 2008 02:22:07 +0000 (02:22 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@10348 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/action.pm
Open-ILS/src/support-scripts/fine_generator.pl

index 49ae2f1..e324ac1 100644 (file)
@@ -95,7 +95,11 @@ sub overdue_circs {
 
        my $c_t = action::circulation->table;
 
-       $grace = " - ($grace * (fine_interval))" if ($grace);
+       if ($grace) {
+       $grace = " - ($grace * (fine_interval))";
+    } else {
+        $grace = '';
+    } 
 
        my $sql = <<"   SQL";
                SELECT  *
index d6dc8f1..84645f9 100755 (executable)
@@ -12,8 +12,10 @@ use OpenSRF::System;
 
 my $config = shift || die "bootstrap config required\n";
 my $lockfile = shift || "/tmp/generate_fines-LOCK";
-my $grace = int(shift()) || 1;
+my $grace = shift;
 
+$grace = '' if (!defined($grace) or $grace == 0);
 if (-e $lockfile) {
         open(F,$lockfile);
         my $pid = <F>;