From fe42315cd9af3dc322bec89a6bd33e6d1ed6a96f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 26 Dec 2024 20:58:14 +0100
Subject: [PATCH] Number of active months.

---
 src/export-sheet.scm | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/src/export-sheet.scm b/src/export-sheet.scm
index d0dd141..b8e9804 100644
--- a/src/export-sheet.scm
+++ b/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
 	  " & "
 	  "~ ~ ~ ~ ~"
 	  " \\\\")