Move the fees table to members-fees.

member-fees.scm

@@ -36,14 +36,19 @@
   member-calendar->fees
   member-fees-total
   member-credit-total
+  print-members-fees-table
   )
 
  (import scheme
 	 (chicken base)
+	 (chicken format)
+	 (chicken sort)
 	 configuration
 	 member-record
 	 month
-	 ansi)
+	 ansi
+	 table
+	 members-base)
 
  ;; Returns a list of months where each month is a list containing:
  ;; * month (from month module)
@@ -145,4 +150,19 @@
 	  (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)))
+ 
  )