Fix basic info.

2023-03-29 18:35:26 +02:00 · 2023-03-29 18:35:26 +02:00 · 2117749d61
commit 2117749d61
parent 0c7cf11297
4 changed files with 8 additions and 17 deletions
--- a/member-print.scm
+++ b/member-print.scm
@ -98,8 +98,6 @@
 	  (body (map (lambda (k)
 		       (let ((v (dict-ref info k)))
 			 (case k
-			   ((joined)
-			    (list k (month->string v)))
 			   ((card desfire credit)
 			    (list k 
 				  (table->string
@ -108,7 +106,7 @@
 				      (list (car c) (cdr c)))
 				    v)
 				   #:col-border #t)))
-			   ((suspend student)
+			   ((suspend student member)
 			    (list k
 				  (table->string
 				   (cons (list "Since" "Until")