Support for total member balance.

src/brmember-format.scm

@@ -76,6 +76,8 @@
 			      (sprintf "~A" (member-credit-total mr)))
 			     ((#\P) ; Total payments made
 			      (sprintf "~A" (member-payments-total mr)))
+			     ((#\B) ; Current balance
+			      (sprintf "~A" (member-total-balance mr)))
 			     ((#\~) "~"))
 			   resl))
 	       (loop (cdr fmtl)