Improved printing of manually entered credit.

2023-05-11 13:46:25 +02:00 · 2023-05-11 13:46:25 +02:00 · d9b81561e9
commit d9b81561e9
parent 57571f10c0
2 changed files with 6 additions and 2 deletions
--- a/src/members-print.scm
+++ b/src/members-print.scm
@ -87,7 +87,7 @@
 	  (body (map (lambda (k)
 		       (let ((v (ldict-ref info k)))
 			 (case k
-			   ((card desfire credit)
+			   ((card desfire)
 			    (list k 
 				  (table->string
 				   (map
@ -95,6 +95,10 @@
 				      (list (car c) (cdr c)))
 				    v)
 				   #:col-border #t)))
+			   ((credit)
+			    (list k 
+				  (table->string v
+				   #:col-border #t)))
 			   ((suspend student member)
 			    (list k
 				  (table->string