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

Fix fees to work with new members base structure.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-04 23:03:50 +02:00
parent 09c9005a7b
commit 993dce8750
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/members-print.scm
View file

@ -335,7 +335,7 @@
;; Prints summary table of all fees and credits for all members ;; Prints summary table of all fees and credits for all members
(define (print-members-fees-table MB) (define (print-members-fees-table MB)
(let ((balances (map member-balance MB)) (let ((balances (map member-balance (members-base-members MB)))
(members ;; Pass 1 (members ;; Pass 1
(map (map
(lambda (mr) (lambda (mr)
@ -357,7 +357,7 @@
payment payment
total total
))) )))
(sort MB member<?)))) (sort (members-base-members MB) member<?))))
(print (print
(table->string (table->string
(cons (cons