Move jendasap-checked to main file.

src/bbstool.scm

@@ -65,6 +65,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 (define -web-dir- (make-parameter #f))
 (define -bank-dir- (make-parameter #f))
 (define -cards-enabled- (make-parameter #t))
+(define -jendasap-checked- (make-parameter "checked.ntlm"))
 
 ;; Arguments parsing
 (command-line
@@ -91,7 +92,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  (-bankdir (dir) "Where are bank CSV files"
 	   (-bank-dir- dir))
  (-checked (file) "JendaSAP checked.ntlm file"
-	   (*jendasap-checked* file))
+	   (-jendasap-checked- file))
  ""
  "Query options:"
  (-mi (id) "Specify member by id" (-member-id- (string->number id)))
@@ -155,7 +156,7 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
   (if (-action-)
       (let ((mb (load-members (*members-directory*) #t)))
 	(if (-needs-bank-)
-	    (members-payments-process mb (-apikeys-file-) (-bank-dir-) (*jendasap-checked*))
+	    (members-payments-process mb (-apikeys-file-) (-bank-dir-) (jendasap-checked-))
 	    mb))
       #f))
 

src/configuration.scm

@@ -31,7 +31,6 @@
   *current-month*
   *member-suspend-max-months*
   *members-directory*
-  *jendasap-checked*
   )
 
  (import scheme
@@ -53,7 +52,4 @@
  ;; Needed by multiple modules actually
  (define *members-directory* (make-parameter "members"))
 
- ;; JendaSAP compatibility file with last checked Fio transaction
- (define *jendasap-checked* (make-parameter "checked.ntlm"))
-
  )