brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Coerce suspend start to month when calculating suspended months.

Browse source
This commit is contained in:
Dominik Pantůček 2024-09-10 18:42:19 +02:00
parent dbc52833f0
commit 065d406e9c
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/brmember.scm
View file

@ -423,7 +423,8 @@
(if (brmember-suspended? mr) (if (brmember-suspended? mr)
(let ((period (cal-periods-match (brmember-info mr 'suspend)))) (let ((period (cal-periods-match (brmember-info mr 'suspend))))
(if period (if period
(cal-month-diff (cal-period-since period) (*current-month*)) (cal-month-diff (cal-ensure-month (cal-period-since period))
(*current-month*))
0)) 0))
0)) 0))