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

Pass checked path to payments processing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-05 11:29:55 +02:00
parent 6553683eda
commit 209451468c
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/bbstool.scm
View file

@ -87,8 +87,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(-apikeys-file- fname))
(-bankdir (dir) "Where are bank CSV files"
(-bank-dir- dir))
(-jenda-checked (file) "JendaSAP checked.ntlm file"
(*jendasap-checked* file))
(-checked (file) "JendaSAP checked.ntlm file"
(*jendasap-checked* file))
""
"Query options:"
(-mi (id) "Specify member by id" (-member-id- (string->number id)))
@ -149,7 +149,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(if (-action-)
(let ((mb (load-members (*members-directory*) #t)))
(if (-needs-bank-)
(members-payments-process mb (-apikeys-file-) (-bank-dir-))
(members-payments-process mb (-apikeys-file-) (-bank-dir-) (*jendasap-checked*))
mb))
#f))

2
src/members-payments.scm
View file

@ -119,7 +119,7 @@
;; If apikeys is not #f, loads the account numbers, loads bank
;; accounts and processes transactions.
(define (members-payments-process mb apikeys-file dir)
(define (members-payments-process mb apikeys-file dir checked-fn)
(if apikeys-file
(let* ((acc-list (load-accounts-list apikeys-file))
(accounts (if acc-list (load-accounts acc-list dir) #f)))