Create member calendar.

member-record.scm

@@ -51,6 +51,7 @@
   member-active?
   member-student?
   member-existing?
+  member-flags
 
   member-nick
   member-id
@@ -74,7 +75,8 @@
 	 month
 	 period
 	 configuration
-	 primes)
+	 primes
+	 utils)
 
  ;; Checks whether given string is a 4-digit decimal number.
  (define (is-4digit-string? s)
@@ -249,6 +251,15 @@
      (and joined
 	  (month<=? joined (*current-month*)))))
 
+ ;; Returns a list of flags of given member record.
+ (define (member-flags mr)
+   (filter identity
+	   (list (if (member-student? mr) 'student #f)
+		 (if (member-suspended? mr) 'suspended #f)
+		 (if (member-active? mr) 'active #f)
+		 (if (member-destroyed? mr) 'destroyed #f)
+		 (if (member-existing? mr) 'existing #f))))
+
  ;; Nickname as string
  (define (member-nick mr)
    (member-record-info mr 'nick))