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

Remove full JendaSAP compat layer.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-05 11:27:15 +02:00
parent 110a416039
commit 6553683eda
3 changed files with 3 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/members-payments.scm
View file

@ -67,10 +67,8 @@
(if (equal? (bank-transaction-type transaction) "Poplatek")
#f
(let* ((varsym-id0
(if (*jendasap-compat*) ;; JendaSAP - whole string
(bank-transaction-varsym transaction)
(string->number
(bank-transaction-varsym transaction))))
(string->number
(bank-transaction-varsym transaction)))
(varsym-id
(or varsym-id0
(let* ((msg (bank-transaction-message transaction))
@ -83,9 +81,7 @@
;; Special comparator with JendaSAP hack
(define (compare-member-id member-id bank-varsym)
(if (*jendasap-compat*)
(equal? bank-varsym (number->string member-id))
(eq? member-id bank-varsym)))
(eq? member-id bank-varsym))
;; Merges bank account statement into members payment keys. The
;; payment key will be a list of transactions.