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

(coll, fina, repa, shark, disloan): Fix calculation of regular and

Browse source 
extended (beyond due date) loan time.  At the due date, or after a
last payment made at the due date, durations were zero in fina() and
unpredictable elsewhere.  With luck, debtors could abuse this to repay
loans cheap (they couldn't gain cash, though), sharks to purchase
loans cheap, and creditors to collect excessively.
This commit is contained in:
Markus Armbruster 2004-08-20 07:01:26 +00:00
parent ef0060ec57
commit fcbe36e76c
5 changed files with 54 additions and 72 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -50,8 +50,6 @@ repa(void)
int loan_num;
long payment;
long owe;
long due;
long last_payment;
long normaltime;
long doubletime;
double rate_per_sec, amt;
@ -76,20 +74,17 @@ repa(void)
return RET_FAIL;
}
(void)time(&now);
due = loan.l_duedate;
last_payment = loan.l_lastpay;
if (now < due) {
normaltime = now - last_payment;
doubletime = 0;
}
if (last_payment < due && due < now) {
normaltime = due - last_payment;
doubletime = now - due;
}
if (due < last_payment) {
/*
* split duration now - l_lastpay into regular (up to l_duedate)
* and extended (beyond l_duedate)
*/
normaltime = loan.l_duedate - loan.l_lastpay;
doubletime = now - loan.l_duedate;
if (normaltime < 0) {
doubletime += normaltime;
normaltime = 0;
doubletime = now - last_payment;
}
rate_per_sec = loan.l_irate /
((double)loan.l_ldur * SECS_PER_DAY * 100.0);