From 87b84a406471d3ac9f0e364ad7a499cb7cb465bc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 5 Dec 2023 19:11:10 +0100
Subject: [PATCH] SEPA payment identification

---
 src/members-payments.scm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/src/members-payments.scm b/src/members-payments.scm
index 6f8731d..eee3b7e 100644
--- a/src/members-payments.scm
+++ b/src/members-payments.scm
@@ -79,11 +79,16 @@
 	      (varsym-id
 	       (or varsym-id0
 		   (let* ((msg (bank-transaction-message transaction))
-			  (ci (substring-index "," msg))
-			  (vs (if ci
-				  (substring msg 0 ci)
-				  msg)))
-		     (string->number vs)))))
+			  (ci1 (substring-index "," msg))
+			  (vs1 (if ci1
+				   (substring msg 0 ci1)
+				   msg))
+			  (ci2 (substring-index " " msg))
+			  (vs2 (if ci2
+				   (substring msg 0 ci2)
+				   msg)))
+		     (or (string->number vs1)
+			 (string->number vs2))))))
 	 varsym-id)))
 
  ;; Special comparator (originally with JendaSAP hack)