Add max suspended months to specification.

src/Makefile

@@ -190,7 +190,8 @@ MEMBERS-PRINT-SOURCES=members-print.scm util-dict-list.import.scm		\
 	primes.import.scm members-base.import.scm			\
 	configuration.import.scm bank-account.import.scm		\
 	members-fees.import.scm members-payments.import.scm		\
-	util-list.import.scm brmember-format.import.scm
+	util-list.import.scm brmember-format.import.scm			\
+	specification.import.scm
 
 members-print.o: members-print.import.scm
 members-print.import.scm: $(MEMBERS-PRINT-SOURCES)
@@ -229,7 +230,8 @@ bank-fio.import.scm: $(BANK-FIO-SOURCES)
 MEMBERS-PAYMENTS-SOURCES=members-payments.scm bank-account.import.scm	\
 	util-dict-list.import.scm members-fees.import.scm		\
 	period.import.scm configuration.import.scm			\
-	progress.import.scm bank-fio.import.scm util-list.import.scm
+	progress.import.scm bank-fio.import.scm util-list.import.scm	\
+	specification.import.scm
 
 members-payments.o: members-payments.import.scm
 members-payments.import.scm: $(MEMBERS-PAYMENTS-SOURCES)

src/configuration.scm

@@ -30,8 +30,6 @@
  (
   *current-month*
   
-  *member-suspend-max-months*
-
   *etc-hackerbase*
   
   *members-directory*
@@ -59,9 +57,6 @@
       (list (+ 1900 (vector-ref d 5))
 	    (+ (vector-ref d 4) 1)))))
 
- ;; How long the member can be suspended without any action required?
- (define *member-suspend-max-months* (make-parameter 24))
-
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; Initial configuration from *etc-hackerbase*
 

src/members-payments.scm

@@ -53,12 +53,8 @@
 	 period
 	 configuration
 	 util-list
-	 progress)
+	 progress
-
+	 specification)
- ;; Exchange rates
- (define exchange-rates-lookup-table
-   (make-period-lookup-table
-    '(((2010 1) 25))))
 
  ;; Transaction types to ignore
  (define ignored-transaction-types

src/members-print.scm

@@ -60,7 +60,8 @@
 	 bank-account
 	 members-fees
 	 members-payments
-	 brmember-format)
+	 brmember-format
+	 specification)
 
  ;; Prints human-readable information
  (define (print-member-info mr)
@@ -273,7 +274,7 @@
 	      (let ((suspended2 (filter
 				 (lambda (mr)
 				   (>= (brmember-suspended-months mr)
-				       (*member-suspend-max-months*)))
+				       member-suspend-max-months))
 				 suspended-mrs)))
 		(if (null? suspended2)
 		    #f

src/specification.scm

@@ -29,6 +29,8 @@
  specification
  (
   member-fees-lookup-table
+  exchange-rates-lookup-table
+  member-suspend-max-months
   )
 
  (import scheme
@@ -39,4 +41,12 @@
    (make-period-lookup-table
     '(((2010 1) 500 250))))
 
+ ;; Exchange rates
+ (define exchange-rates-lookup-table
+   (make-period-lookup-table
+    '(((2010 1) 25))))
+
+ ;; How long the member can be suspended without any action required?
+ (define member-suspend-max-months 24)
+
  )