Update notifications dependencies.

src/members-fees.scm

@@ -38,6 +38,7 @@
   member-fees-total
   member-credit-total
   member-calendar->table
+  members-summary
   )
 
  (import scheme
@@ -51,7 +52,8 @@
 	 table
 	 mbase
 	 period
-	 specification)
+	 specification
+	 util-list)
 
  ;; Returns a matching list of (list regular student)
  (define (lookup-member-fees)
@@ -168,15 +170,26 @@
  ;; Nicely print calendar for given member
  (define (member-calendar->table mr)
    (let* ((mc (member-calendar mr))
-	      (fees (member-calendar->fees mc)))
+	  (fees (member-calendar->fees mc)))
      (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 #f
-			       #:row-border #t
-			       #:col-border #t
-			       #:ansi #t
-			       )))
+				 (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 #f
+		    #:row-border #t
+		    #:col-border #t
+		    #:ansi #t
+		    )))
+
+ ;; Summarizes (cons students full) counts
+ (define (members-summary mb)
+   (let ((members (filter
+		   brmember-active?
+		   (mbase-members mb))))
+     (foldl (lambda (acc mr)
+	      (cons (+ (car acc) (if (brmember-student? mr) 1 0))
+		    (+ (cdr acc) (if (brmember-student? mr) 0 1))))
+	    (cons 0 0)
+	    members)))
  
  )