Lookup period-based fees.
This commit is contained in:
parent
9900764f57
commit
4a62102bc2
1 changed files with 2 additions and 2 deletions
|
@ -143,8 +143,8 @@
|
||||||
(if (member 'destroyed (cadr e))
|
(if (member 'destroyed (cadr e))
|
||||||
0 ; Destroyed
|
0 ; Destroyed
|
||||||
(if (member 'student (cadr e))
|
(if (member 'student (cadr e))
|
||||||
250 ; Student
|
(lookup-member-fee 'student) ; Student
|
||||||
500))) ; Normal
|
(lookup-member-fee 'regular)))) ; Normal
|
||||||
0) ; Nonexistent - should not happen
|
0) ; Nonexistent - should not happen
|
||||||
0)) ; Nonexistent
|
0)) ; Nonexistent
|
||||||
|
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue