Move all fees functions to member-fees module.

member-fees.scm

@@ -37,6 +37,7 @@
   member-fees-total
   member-credit-total
   print-members-fees-table
+  print-member-calendar-table
   )
 
  (import scheme
@@ -164,5 +165,20 @@
 	       ))
        (sort (filter-members-by-predicate MB member-active?) member<?)))
      #:col-border #t #:row0-border #t)))
+
+ ;; Nicely print calendar for given member
+ (define (print-member-calendar-table mr)
+   (let* ((mc (member-calendar mr))
+	      (fees (member-calendar->fees mc)))
+	 (print (table->string (cons (map (lambda (c)
+					    (sprintf "\t~A\t" c))
+					  (list "" 1 2 3 4 5 6 7 8 9 10 11 12))
+				     (member-calendar->years-table mc))
+			       #:table-border #t
+			       #:row-border #t
+			       #:col-border #t
+			       #:ansi #t
+			       ))
+	 ))
  
  )