empire/empserver
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Markus Armbruster 2004-08-20 07:11:18 +00:00
parent fcbe36e76c
commit e502056dab
3 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/lib/commands/fina.c
View file

@ -81,6 +81,10 @@ fina(void)
xdur += rdur;
rdur = 0;
}
if (xdur < 0) {
rdur += xdur;
xdur = 0;
}
if (CANT_HAPPEN(loan.l_ldur == 0))
continue;

4
src/lib/commands/repa.c
View file

@ -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);

4
src/lib/subs/disloan.c
View file

@ -94,6 +94,10 @@ disloan(int n, register struct lonstr *loan)
doubletime += normaltime;
normaltime = 0;
}
if (doubletime < 0) {
normaltime += doubletime;
doubletime = 0;
}
rate = ((double)loan->l_irate / 100.0) / (loan->l_ldur * SECS_PER_DAY);
owe = ((double)loan->l_amtdue *