From 209451468ce6ff80bb739ee574bfaaf356d4aed7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Wed, 5 Apr 2023 11:29:55 +0200 Subject: [PATCH] Pass checked path to payments processing. --- src/bbstool.scm | 6 +++--- src/members-payments.scm | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/bbstool.scm b/src/bbstool.scm index 719ea0c..f5a0cbf 100644 --- a/src/bbstool.scm +++ b/src/bbstool.scm @@ -87,8 +87,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. (-apikeys-file- fname)) (-bankdir (dir) "Where are bank CSV files" (-bank-dir- dir)) - (-jenda-checked (file) "JendaSAP checked.ntlm file" - (*jendasap-checked* file)) + (-checked (file) "JendaSAP checked.ntlm file" + (*jendasap-checked* file)) "" "Query options:" (-mi (id) "Specify member by id" (-member-id- (string->number id))) @@ -149,7 +149,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-)) + (members-payments-process mb (-apikeys-file-) (-bank-dir-) (*jendasap-checked*)) mb)) #f)) diff --git a/src/members-payments.scm b/src/members-payments.scm index 85c077e..4375e95 100644 --- a/src/members-payments.scm +++ b/src/members-payments.scm @@ -119,7 +119,7 @@ ;; If apikeys is not #f, loads the account numbers, loads bank ;; accounts and processes transactions. - (define (members-payments-process mb apikeys-file dir) + (define (members-payments-process mb apikeys-file dir checked-fn) (if apikeys-file (let* ((acc-list (load-accounts-list apikeys-file)) (accounts (if acc-list (load-accounts acc-list dir) #f)))