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

Handle inter-account transactions properly.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-08 20:40:38 +02:00
parent d72cde9c04
commit ac46f41cb3
2 changed files with 5 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/members-payments.scm
View file

@ -149,16 +149,16 @@
(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))
(total (length accounts))
(all-accounts (if acc-list (load-accounts acc-list dir) #f))
(total (length all-accounts))
(last-checked (get-latest-checked-id checked-fn)))
(if accounts
(if all-accounts
(with-progress%
#t "Payments"
(progress%-advance 0)
(let loop ((mb mb)
(idx 0)
(accounts accounts))
(accounts all-accounts))
(if (null? accounts)
(let ((mb (members-base-update mb identity member-sort-payments)))
(progress%-advance 1)
@ -166,7 +166,7 @@
(let ()
(progress%-advance (/ idx total))
(loop (if (car accounts)
(members-payments-process-bank mb (car accounts) last-checked accounts)
(members-payments-process-bank mb (car accounts) last-checked all-accounts)
mb)
(add1 idx)
(cdr accounts))))))