Lookup period-based fees.

2023-03-31 20:07:35 +02:00 · 2023-03-31 20:07:35 +02:00 · 4a62102bc2
commit 4a62102bc2
parent 9900764f57
1 changed files with 2 additions and 2 deletions
--- 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