Move the fees table to members-fees.

bbstool.scm

@@ -27,7 +27,6 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
 (import testing
 	(chicken format)
-	(chicken sort)
 	listing
 	dictionary
 	month
@@ -186,17 +185,6 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
        (loop (cdr mb)))))
   ((fees)
    (newline)
-   (print
+   (print-member-fees-table MB))
-    (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)))
   
   )

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)))
+ 
  )