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

View file

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

View file

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