Compute total fees.

member-fees.scm

@@ -88,6 +88,20 @@
 	   "   ") ; Nonexistent - should not happen
        "   ")) ; Nonexistent
 
+ ;; Converts the entry into the fee
+ (define (member-calendar-entry->fee e)
+   (if e
+       (if (member 'existing (cadr e))
+	   (if (member 'suspended (cadr e))
+	       0 ; Suspended
+	       (if (member 'destroyed (cadr e))
+		   0 ; Destroyed
+		   (if (member 'student (cadr e))
+		       250 ; Student
+		       500))) ; Normal
+	   0) ; Nonexistent - should not happen
+       0)) ; Nonexistent
+
  ;; Converts the calendar into a table where rows represent years and
  ;; contain the year in the first cell and 12 cells for months after
  ;; it.
@@ -111,7 +125,8 @@
 					  row))))
 		       rows))))))
 
- (define (member-calendar->fees mr)
-   #f)
+ ;; Converts the whole calendar into a list of amounts (fees)
+ (define (member-calendar->fees mc)
+   (map member-calendar-entry->fee mc))
 
  )