Parse new start/stop properly, show it in member info table.
This commit is contained in:
parent
9ed3ef4423
commit
f20f815784
2 changed files with 2 additions and 2 deletions
|
@ -109,7 +109,7 @@
|
||||||
(info
|
(info
|
||||||
,(lambda (mr output key value)
|
,(lambda (mr output key value)
|
||||||
(case key
|
(case key
|
||||||
((student suspend member)
|
((student suspend member revision chair council grant)
|
||||||
(let* ((res (period-markers->cal-periods value))
|
(let* ((res (period-markers->cal-periods value))
|
||||||
(ok? (car res))
|
(ok? (car res))
|
||||||
(periods (cadr res))
|
(periods (cadr res))
|
||||||
|
|
|
@ -108,7 +108,7 @@
|
||||||
(caddr c)))
|
(caddr c)))
|
||||||
(brmember-credit mr))
|
(brmember-credit mr))
|
||||||
#:col-border #t)))
|
#:col-border #t)))
|
||||||
((suspend student member)
|
((suspend student member council chair revision grant)
|
||||||
(list k
|
(list k
|
||||||
(table->string
|
(table->string
|
||||||
(cons (list "Since" "Until")
|
(cons (list "Since" "Until")
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue