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

Add io wrapper handling UTF-8 BOM.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-08 20:35:41 +02:00
parent 6b8bffdd41
commit d72cde9c04
5 changed files with 80 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/members-payments.scm
View file

@ -86,7 +86,7 @@
;; Merges bank account statement into members payment keys. The
;; payment key will be a list of transactions.
(define (members-payments-process-bank mb ba last-checked)
(define (members-payments-process-bank mb ba last-checked all-accounts)
(let loop ((mb mb)
(transactions (bank-account-transactions ba)))
(if (null? transactions)
@ -104,7 +104,10 @@
(if (and (or (not last-checked)
(> (bank-transaction-id transaction)
last-checked))
(> (bank-transaction-amount transaction) 0))
(> (bank-transaction-amount transaction) 0)
(not (bank-accounts-member? all-accounts
(bank-transaction-account transaction)
(bank-transaction-bank transaction))))
(members-base-add-unpaired mb transaction)
mb))
(cdr transactions))))))
@ -163,7 +166,7 @@
(let ()
(progress%-advance (/ idx total))
(loop (if (car accounts)
(members-payments-process-bank mb (car accounts) last-checked)
(members-payments-process-bank mb (car accounts) last-checked accounts)
mb)
(add1 idx)
(cdr accounts))))))