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

Make directory argument mandatory for members payments processing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-02 19:33:52 +02:00
parent 48636fc965
commit f7babb257e
1 changed files with 10 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/members-payments.scm
View file

@ -105,20 +105,16 @@
;; If apikeys is not #f, loads the account numbers, loads bank
;; accounts and processes transactions.
(define (members-payments-process mb apikeys-file . dirs)
(let ((dir (if (null? dirs)
(current-directory)
(or (car dirs)
(current-directory)))))
(if apikeys-file
(let* ((accounts (load-accounts
(load-accounts-list apikeys-file)
dir)))
(map member-add-balance
(foldl members-payments-process-bank
mb
accounts)))
mb)))
(define (members-payments-process mb apikeys-file dir)
(if apikeys-file
(let* ((accounts (load-accounts
(load-accounts-list apikeys-file)
dir)))
(map member-add-balance
(foldl members-payments-process-bank
mb
accounts)))
mb))
;; Adds all balances - payments are converted to CZK in member-payments-total
(define (member-add-balance mr)