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

Split out member id extraction.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-31 09:44:50 +02:00
parent 3c56578d65
commit 9435659140
1 changed files with 16 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

23
members-payments.scm
View file

@ -45,15 +45,9 @@
dictionary dictionary
member-fees) member-fees)
;; Merges bank account statement into members payment keys. The ;; Extract probable member-id from transaction
;; payment key will be a list of transactions. (define (transaction-extract-member-id transaction)
(define (members-payments-process-bank mb ba) (let* ((varsym-id0
(let loop ((mb mb)
(transactions (bank-account-transactions ba)))
(if (null? transactions)
mb
(let* ((transaction (car transactions))
(varsym-id0
(string->number (string->number
(bank-transaction-varsym transaction))) (bank-transaction-varsym transaction)))
(varsym-id (varsym-id
@ -64,6 +58,17 @@
(substring msg ci) (substring msg ci)
msg))) msg)))
(string->number vs))))) (string->number vs)))))
varsym-id))
;; Merges bank account statement into members payment keys. The
;; payment key will be a list of transactions.
(define (members-payments-process-bank mb ba)
(let loop ((mb mb)
(transactions (bank-account-transactions ba)))
(if (null? transactions)
mb
(let* ((transaction (car transactions))
(varsym-id (transaction-extract-member-id transaction)))
(loop (members-base-update mb (loop (members-base-update mb
(lambda (mr) (lambda (mr)
(eq? (member-id mr) (eq? (member-id mr)