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-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
|
||||||
|
|
|
@ -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))))))
|
||||||
|
|
||||||
|
|
|
@ -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)))
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue