Match fee periods properly.

src/brmember.scm

@@ -85,6 +85,8 @@
   brmember-mailman
   brmember-add-mailman
 
+  brmember-spec-fee
+
   brmember-tests!
   )
 
@@ -478,6 +480,18 @@
 	     (cons ml
 		   (brmember-mailman mr))))
 
+ ;; Returns special fee for current month or #f if it should be default
+ (define (brmember-spec-fee mr)
+   (let ((fee-periods (brmember-info mr 'fee #f)))
+     (if fee-periods
+	 (let ((fee-period (cal-month-find-period fee-periods)))
+	   (if fee-period
+	       (let ()
+		 (print fee-period)
+		 #t)
+	       #f))
+	 #f)))
+
  ;; Self-tests
  (define (brmember-tests!)
    (run-tests