Number of active months.

src/export-sheet.scm

@@ -40,7 +40,9 @@
 	 brmember-format
 	 util-bst-ldict
 	 members-payments
-	 util-format)
+	 util-format
+	 members-fees
+	 srfi-1)
 
  (define (print-attendance-sheet MB)
    (print "\\documentclass[11pt]{article}")
@@ -98,7 +100,19 @@
 		(reverse
 		 (cdr
 		  (reverse namel)))
-		" ")))
+		" "))
+	      (cal (member-calendar mr))
+	      (rcal (reverse cal))
+	      (rcal12
+	       (if (> (length rcal) 12)
+		   (take rcal 12)
+		   rcal))
+	      (acal12 (map cadr rcal12))
+	      (acal12* (map (lambda (f) (if (memq 'active f) 1 0)) acal12))
+	      (numactive (foldl + 0 acal12*))
+	      )
+	 (display acal12* (current-error-port))
+	 (newline (current-error-port))
 	 (print
 	  (brmember-id mr)
 	  " & "
@@ -113,7 +127,7 @@
 	  (format-amount
 	   (member-total-balance mr))
 	  " & "
-	  "?"
+	  numactive
 	  " & "
 	  "~ ~ ~ ~ ~"
 	  " \\\\")