From 4a62102bc23a02cf1cdd3f08f941b330da3cae6d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Fri, 31 Mar 2023 20:07:35 +0200
Subject: [PATCH] Lookup period-based fees.

---
 member-fees.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/member-fees.scm b/member-fees.scm
index 04905ac..4c73286 100644
--- a/member-fees.scm
+++ b/member-fees.scm
@@ -143,8 +143,8 @@
 	       (if (member 'destroyed (cadr e))
 		   0 ; Destroyed
 		   (if (member 'student (cadr e))
-		       250 ; Student
-		       500))) ; Normal
+		       (lookup-member-fee 'student) ; Student
+		       (lookup-member-fee 'regular)))) ; Normal
 	   0) ; Nonexistent - should not happen
        0)) ; Nonexistent