Prepare payments for comment parsing of SEPA transactions.
This commit is contained in:
parent
cbd5e89f6e
commit
3edfe6c02a
1 changed files with 4 additions and 1 deletions
|
@ -36,6 +36,7 @@
|
||||||
(chicken base)
|
(chicken base)
|
||||||
(chicken string)
|
(chicken string)
|
||||||
(chicken io)
|
(chicken io)
|
||||||
|
(chicken irregex)
|
||||||
bank-account
|
bank-account
|
||||||
member-record
|
member-record
|
||||||
members-base
|
members-base
|
||||||
|
@ -52,7 +53,9 @@
|
||||||
(if (null? transactions)
|
(if (null? transactions)
|
||||||
mb
|
mb
|
||||||
(let* ((transaction (car transactions))
|
(let* ((transaction (car transactions))
|
||||||
(varsym-id (string->number (bank-transaction-varsym transaction))))
|
(varsym-id
|
||||||
|
(string->number
|
||||||
|
(bank-transaction-varsym transaction))))
|
||||||
(loop (members-base-update mb
|
(loop (members-base-update mb
|
||||||
(lambda (mr)
|
(lambda (mr)
|
||||||
(eq? (member-id mr)
|
(eq? (member-id mr)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue