Payments accessors.

src/brmember.scm

@@ -63,8 +63,8 @@
 
   brmember<?
 
-  member-record-add-payment
+  brmember-add-payment
-  member-payments
+  brmember-payments
 
   member-mailman
   member-add-mailman
@@ -325,13 +325,13 @@
 		(brmember-nick b)))
 
  ;; Prepends new payment to given member record payments
- (define (member-record-add-payment mr pt)
+ (define (brmember-add-payment mr pt)
    (ldict-set mr 'payments
 	     (cons pt
 		   (ldict-ref mr 'payments '()))))
 
  ;; Returns  alist of member payments
- (define (member-payments mr)
+ (define (brmember-payments mr)
    (filter (lambda (tr)
 	     (let* ((isodate (bank-transaction-date tr))
 			 (month (iso-date->month isodate)))

src/members-payments.scm

@@ -101,7 +101,7 @@
 		      (lambda (mr)
 			(compare-member-id (brmember-id mr) varsym-id))
 		      (lambda (mr)
-			(member-record-add-payment mr transaction)))
+			(brmember-add-payment mr transaction)))
 		     (if (and (or (not last-checked)
 				  (> (bank-transaction-id transaction)
 				     last-checked))
@@ -210,7 +210,7 @@
 		     ((CZK) amount)
 		     ((EUR) (* amount (lookup-eur-rate)))
 		     (else 0))))
-	       (member-payments mr))))
+	       (brmember-payments mr))))
 
  ;; Return members to notify because of late payments for more than
  ;; given number of months

src/members-print.scm

@@ -187,7 +187,7 @@
 				(bank-transaction-currency tr)
 				(bank-transaction-date tr)
 				(bank-transaction-id tr)))
-			(member-payments mr)))
+			(brmember-payments mr)))
 		  #:row0-border #t
 		  #:col-border #t
 		  ))