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

Include current month in stats.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-30 17:14:23 +02:00
parent 13985085ca
commit dfa740f05d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/mbase.scm
View file

@ -236,7 +236,7 @@
(let ((keys '(month total active suspended students destroyed invalid))) (let ((keys '(month total active suspended students destroyed invalid)))
(let mloop ((data '()) (let mloop ((data '())
(month (members-base-oldest-month mb))) (month (members-base-oldest-month mb)))
(if (cal-month<? month (*current-month*)) (if (cal-month<=? month (*current-month*))
(let ((bi (with-current-month month (let ((bi (with-current-month month
(mbase-info mb)))) (mbase-info mb))))
(let kloop ((row (list (ldict-ref bi 'month))) (let kloop ((row (list (ldict-ref bi 'month)))