From f3d40e1743ab5ddd38c66d36c9e627a06cfdbaf9 Mon Sep 17 00:00:00 2001
From: Simon Will <will@cl.uni-heidelberg.de>
Date: Mon, 12 Nov 2018 23:54:56 +0100
Subject: [PATCH] =?UTF-8?q?Don=E2=80=99t=20add=20null=20keys=20when=20gene?=
=?UTF-8?q?rating=20course=20data?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
nomen-est-omen/generating-course-data.lisp | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/nomen-est-omen/generating-course-data.lisp b/nomen-est-omen/generating-course-data.lisp
index adf2b1f..87d3de2 100644
--- a/nomen-est-omen/generating-course-data.lisp
+++ b/nomen-est-omen/generating-course-data.lisp
@@ -29,9 +29,11 @@
(record (make-hash-table :test #'equal)))
(dolist (key '(first second third fourth))
- (let ((record-part (or (funcall key record-parts) "")))
- (setf (gethash (getf config (intern (symbol-name key) "KEYWORD")) record)
- record-part)))
+ (let ((record-part (or (funcall key record-parts) ""))
+ (config-value (getf config (intern (symbol-name key) "KEYWORD"))))
+ (when value
+ (setf (gethash config-value record)
+ record-part))))
(setf record (ensure-matriculation-number-is-integer record))
(setf record (complete-record record))))
--
GitLab