Unpaired handling rename.
This commit is contained in:
parent
e54e4bd016
commit
8321c741dc
3 changed files with 6 additions and 6 deletions
|
@ -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
|
||||
|
|
|
@ -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))))))
|
||||
|
||||
|
|
|
@ -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)))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue