Prepare for balances in totals table.

member-fees.scm

@@ -36,7 +36,6 @@
   member-calendar->fees
   member-fees-total
   member-credit-total
-  print-members-fees-table
   member-calendar->table
   )
 
@@ -153,21 +152,6 @@
 	  (amounts (map car credit)))
      (foldl + 0 amounts)))
 
- ;; Prints summary table of all fees and credits for all members
- (define (print-members-fees-table MB)
-   (print
-    (table->string
-     (cons
-      (list "Member" "Fees" "Credit")
-      (map
-       (lambda (mr)
-	 (list (member-nick mr)
-	       (sprintf "\t~A" (member-fees-total mr))
-	       (sprintf "\t~A" (member-credit-total mr))
-	       ))
-       (sort (filter-members-by-predicate MB member-active?) member<?)))
-     #:col-border #t #:row0-border #t)))
-
  ;; Nicely print calendar for given member
  (define (member-calendar->table mr)
    (let* ((mc (member-calendar mr))