brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Work correctly with checked.ntlm.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-05 20:24:44 +02:00
parent 65ca6ecf6e
commit 46fb2f8e8e
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/members-payments.scm
View file

@ -100,7 +100,11 @@
(compare-member-id (member-id mr) varsym-id)) (compare-member-id (member-id mr) varsym-id))
(lambda (mr) (lambda (mr)
(member-record-add-payment mr transaction))) (member-record-add-payment mr transaction)))
(members-base-add-unpaired mb transaction)) (if (or (not last-checked)
(> (bank-transaction-id transaction)
last-checked))
(members-base-add-unpaired mb transaction)
mb))
(cdr transactions)))))) (cdr transactions))))))
;; Reads the payments ;; Reads the payments
@ -132,7 +136,8 @@
(lambda () (lambda ()
(with-input-from-file file-name (with-input-from-file file-name
(lambda () (lambda ()
(number->string (read-line))))))))) (let ((str (read-line)))
(string->number str)))))))))
;; If apikeys is not #f, loads the account numbers, loads bank ;; If apikeys is not #f, loads the account numbers, loads bank
;; accounts and processes transactions. ;; accounts and processes transactions.