Primitive EUR conversion.

bank-fio.scm

@@ -46,7 +46,7 @@
 		  (irregex-replace (irregex "," 'u)
 				   (caddr row)
 				   ".")))
-	 (currency (cadddr row))
+	 (currency (string->symbol (cadddr row)))
 	 (varsym (list-ref row 9)))
      (make-bank-transaction id date amount currency varsym)))
 

members-payments.scm

@@ -96,7 +96,13 @@
 
  ;; Total amount paid
  (define (member-payments-total mr)
-   (foldl + 0 (map bank-transaction-amount
+   (foldl + 0 (map (lambda (tr)
+		     (let ((amount (bank-transaction-amount tr))
+			   (currency (bank-transaction-currency tr)))
+		       (case currency
+			 ((CZK) amount)
+			 ((EUR) (* amount 25))
+			 (else 0))))
 		   (member-payments mr))))
 
  )