(fina, repa, disloan): Fix the previous rev.

[empserver] / src / lib / commands / repa.c

diff --git a/src/lib/commands/repa.c b/src/lib/commands/repa.c
index c22a96b1c26395b756023f9f0593aab2c550e765..b2f2e0ae69b8321c676b04acbfbbfdfd1919bc1b 100644 (file)
--- a/src/lib/commands/repa.c
+++ b/src/lib/commands/repa.c
@@ -84,6 +84,10 @@ repa(void)
        doubletime += normaltime;
        normaltime = 0;
     }
+    if (doubletime < 0) {
+       normaltime += doubletime;
+       doubletime = 0;
+    }
 
     rate_per_sec = loan.l_irate /
        ((double)loan.l_ldur * SECS_PER_DAY * 100.0);