Remove full JendaSAP compat layer.

src/bbstool.scm

@@ -87,8 +87,6 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 	  (-apikeys-file- fname))
  (-bankdir (dir) "Where are bank CSV files"
 	   (-bank-dir- dir))
- (-jenda () "JendaSAP compatibility mode"
-	 (*jendasap-compat* #t))
  (-jenda-checked (file) "JendaSAP checked.ntlm file"
 		 (*jendasap-checked* file))
  ""

src/configuration.scm

@@ -31,7 +31,6 @@
   *current-month*
   *member-suspend-max-months*
   *members-directory*
-  *jendasap-compat*
   *jendasap-checked*
   )
 
@@ -54,9 +53,6 @@
  ;; Needed by multiple modules actually
  (define *members-directory* (make-parameter "members"))
 
- ;; JendaSAP compatibility mode
- (define *jendasap-compat* (make-parameter #f))
-
  ;; JendaSAP compatibility file with last checked Fio transaction
  (define *jendasap-checked* (make-parameter "checked.ntlm"))
 

src/members-payments.scm

@@ -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))))
+		(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*)
+   (eq? member-id bank-varsym))
-       (equal? bank-varsym (number->string member-id))
-       (eq? member-id bank-varsym)))
 
  ;; Merges bank account statement into members payment keys. The
  ;; payment key will be a list of transactions.