Total payments in member format.

src/brmember-format.scm

@@ -38,7 +38,8 @@
 	 util-dict-list
 	 brmember
 	 bank-account
-	 members-fees)
+	 members-fees
+	 members-payments)
 
  ;; Member formatting function for general use.
  (define (brmember-format fmt mr)
@@ -73,6 +74,8 @@
 			      (sprintf "~A" (member-fees-total mr)))
 			     ((#\C) ; Total credit manually written
 			      (sprintf "~A" (member-credit-total mr)))
+			     ((#\P) ; Total payments made
+			      (sprintf "~A" (member-payments-total mr)))
 			     ((#\~) "~"))
 			   resl))
 	       (loop (cdr fmtl)