Unpaired handling rename.

This commit is contained in:
Dominik Pantůček 2023-04-13 20:17:16 +02:00
parent e54e4bd016
commit 8321c741dc
3 changed files with 6 additions and 6 deletions

View file

@ -50,8 +50,8 @@
mbase-info
mbase-stats
members-base-add-unpaired
members-base-unpaired
mbase-add-unpaired
mbase-unpaired
members-base-active-emails
@ -232,13 +232,13 @@
(list keys (reverse data))))))
;; Adds unpaired transaction to given members-base
(define (members-base-add-unpaired mb tr)
(define (mbase-add-unpaired mb tr)
(ldict-set mb 'unpaired
(cons tr
(ldict-ref mb 'unpaired '()))))
;; Returns known unpaired transactions
(define (members-base-unpaired mb)
(define (mbase-unpaired mb)
(ldict-ref mb 'unpaired '()))
;; Returns the list of emails of all active members sorted

View file

@ -110,7 +110,7 @@
(bank-transaction-account transaction)
(bank-transaction-bank transaction)))
(not (member (bank-transaction-type transaction) ignored-transaction-types)))
(members-base-add-unpaired mb transaction)
(mbase-add-unpaired mb transaction)
mb))
(cdr transactions))))))

View file

@ -408,7 +408,7 @@
(bank-transaction-account tr)
(bank-transaction-bank tr)
))
(members-base-unpaired mb)))
(mbase-unpaired mb)))
#:row0-border #t
#:col-border #t)))