From 409bf7115603177d84599d7010d23c8672887d73 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Wed, 5 Apr 2023 22:08:03 +0200 Subject: [PATCH] Move jendasap-checked to main file. --- src/bbstool.scm | 5 +++-- src/configuration.scm | 4 ---- 2 files changed, 3 insertions(+), 6 deletions(-) diff --git a/src/bbstool.scm b/src/bbstool.scm index 1f2a6b8..c733897 100644 --- a/src/bbstool.scm +++ b/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)) diff --git a/src/configuration.scm b/src/configuration.scm index 8a6d5b8..660952b 100644 --- a/src/configuration.scm +++ b/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")) - )