From 6260ff2f249b6f8e016ef694b397173d6d58307d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Sun, 12 Mar 2023 08:31:01 +0100
Subject: [PATCH] Add default for joined attribute.

---
 brmsaptool.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/brmsaptool.scm b/brmsaptool.scm
index c6fa138..74a0967 100644
--- a/brmsaptool.scm
+++ b/brmsaptool.scm
@@ -353,11 +353,18 @@
 	(loop (convert-member-key:markers->periods m (car ks))
 	      (cdr ks)))))
 
+;; Fills-in the defaults
+(define (make-default-member-info)
+  (dict-set
+   (make-dict)
+   'joined
+   "2015-01"))
+
 ;; Processes all lines and returns a dictionary representing given
 ;; member.
 (define (parse-member-lines ls)
   (let loop ((ls ls)
-	     (r (make-dict)))
+	     (r (make-default-member-info)))
     (if (null? ls)
 	(convert-member-keys:markers->periods r 'suspend 'student)
 	(let ((p (parse-member-line (car ls))))