brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add default for joined attribute.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-12 08:31:01 +01:00
parent 518f23338b
commit 6260ff2f24
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
brmsaptool.scm
View file

@ -353,11 +353,18 @@
(loop (convert-member-key:markers->periods m (car ks)) (loop (convert-member-key:markers->periods m (car ks))
(cdr 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 ;; Processes all lines and returns a dictionary representing given
;; member. ;; member.
(define (parse-member-lines ls) (define (parse-member-lines ls)
(let loop ((ls ls) (let loop ((ls ls)
(r (make-dict))) (r (make-default-member-info)))
(if (null? ls) (if (null? ls)
(convert-member-keys:markers->periods r 'suspend 'student) (convert-member-keys:markers->periods r 'suspend 'student)
(let ((p (parse-member-line (car ls)))) (let ((p (parse-member-line (car ls))))