Print the credit as well.

bbstool.scm

@@ -185,15 +185,18 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 	 (print-member-source (car mb)))
        (loop (cdr mb)))))
   ((fees)
+   (newline)
    (print
     (table->string
      (cons
-      (list "Member" "Fees")
+      (list "Member" "Fees" "Credit")
       (map
        (lambda (mr)
 	 (list (member-nick mr)
-	       (sprintf "\t~A" (member-fees-total mr))))
+	       (sprintf "\t~A" (member-fees-total mr))
+	       (sprintf "\t~A" (member-credit-total mr))
+	       ))
        (sort (filter-members-by-predicate MB member-active?) member<?)))
-     #:col0-border #t #:row0-border #t)))
+     #:col-border #t #:row0-border #t)))
   
   )

member-fees.scm

@@ -35,6 +35,7 @@
   member-calendar->years-table
   member-calendar->fees
   member-fees-total
+  member-credit-total
   )
 
  (import scheme
@@ -138,4 +139,10 @@
    (foldl + 0 (member-calendar->fees
 	       (member-calendar mr))))
 
+ ;; Total credit manually recorded in member record
+ (define (member-credit-total mr)
+   (let* ((credit (member-record-info mr 'credit '()))
+	  (amounts (map car credit)))
+     (foldl + 0 amounts)))
+
  )