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

Revolut payments

Browse source
This commit is contained in:
Dominik Pantůček 2023-12-05 19:29:47 +01:00
parent 87b84a4064
commit 8ac6f8627c
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/members-payments.scm
View file

@ -86,9 +86,14 @@
(ci2 (substring-index " " msg)) (ci2 (substring-index " " msg))
(vs2 (if ci2 (vs2 (if ci2
(substring msg 0 ci2) (substring msg 0 ci2)
msg))
(ci3 (substring-index "NULL" msg))
(vs3 (if ci3
(substring msg (+ ci3 4) 4)
msg))) msg)))
(or (string->number vs1) (or (string->number vs1)
(string->number vs2)))))) (string->number vs2)
(string->number vs3))))))
varsym-id))) varsym-id)))
;; Special comparator (originally with JendaSAP hack) ;; Special comparator (originally with JendaSAP hack)