Add member format attributes list.
This commit is contained in:
parent
22b43f35ed
commit
64ca870a52
1 changed files with 2 additions and 0 deletions
|
@ -78,6 +78,8 @@
|
||||||
(sprintf "~A" (member-payments-total mr)))
|
(sprintf "~A" (member-payments-total mr)))
|
||||||
((#\B) ; Current balance
|
((#\B) ; Current balance
|
||||||
(sprintf "~A" (member-total-balance mr)))
|
(sprintf "~A" (member-total-balance mr)))
|
||||||
|
((#\A) ; Flags (attributes) list
|
||||||
|
(sprintf "~A" (brmember-flags mr)))
|
||||||
((#\~) "~"))
|
((#\~) "~"))
|
||||||
resl))
|
resl))
|
||||||
(loop (cdr fmtl)
|
(loop (cdr fmtl)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue